print "Copying $src_path\\$upc\\$tracknum.mp3 to $dst_path\\$upc\\$tracknum.mp3\n";
copy("$src_path\\$upc\\$tracknum.mp3","$dst_path\\$upc\\$tracknum.mp3") or
  warn "Couldn't copy $src_path\\$upc\\$realtracknum.mp3: $!";

##</code><code>##

Copying m:\music\tracks\685506213212\01.mp3 to m:\music\tagged\685506213212\01.mp3
Attempt to free unreferenced scalar: SV 0x1e77330, Perl interpreter: 0x15d45fc at C:/Perl/lib/File/Copy.pm line 91.