Select Code to Download

#!/usr/local/bin/perl
    use strict; use warnings;
...
     my $rename_to="${dir}${artist}_${title}.mp3";
      rename($file, "${rename_to}") or warn "Couldn't rename $file to 
+$rename_to: $!\n";
    }

C:\temp>perl mp3_rename.pl
Artist is Rascal Flatts
...
Tracknum is 2
OK
Couldn't rename c:\temp\music\01_rascal flatts_-_ here_comes_goodbye.m
+p3 to c:\temp\music\Rascal Flatts_Here Comes Goodbye.mp3: Permission 
+denied