#!/usr/bin/perl

if (($ARGV[0] eq "") || ($ARGV[1] eq ""))
{
    printf("\n\nUse wma2mp3 <in_wma_dir> <out_mp3_dir>\n\n");
    exit;	
}

opendir(DH, $ARGV[0]) or die "Couldn't open $ARGV[0] for reading: $!";
@files = grep {/\.wma$/i} readdir (DH);
closedir(DH);

for $filez (@files) {
    $file = $filez;
    $file =~ s/.wma$/.mp3/gi;    
    `ffmpeg -copytag -i "$ARGV[0]/$filez" -ab 160 -f mp3 "$ARGV[1]/$file"`;
    #print "$filez $file\n";
    
}