toMp3.pl

#!/usr/bin/env perl
use 5.014;
use strict;
use warnings;
use utf8;
use File::Find;
use Cwd;

my $location=getcwd;
my $count = 0;

foreach my $file  (@ARGV){
    if (-f $file){
		my $fout = $file  =~ s/\..*$/.mp3/r;
		say "attepmting to convert $file->$fout";
		my $cmd = qq{ffmpeg -y -i "$file" -vn -q:1 0  "$fout"  };
		say "command:" . $cmd;
		system $cmd;
		$count++;
		if ( $? == 0 ) {
			say "convertion successful"
		}
		else {
			say "convertion failed"
		}
    }
}