Select Code to Download

open(FL, $File::Find::name);
...
close(FL);

use File::Spec::Functions qw(catdir);
...
$newdir = catdir( $dstdir => $dir );

eval { mkpath($newdir, 0, 0755) };
if ($@) {
  print "can’t mkdir $newdir: $@";
}

use strict;
use MP3::Info;
...
    # a directory as the second argument
    copy($path => $newdir) or die "copy failed: $!\n"; 
}