my $destination = "/home/zack/music";
my $music = "$destination/$mp3";
if ( ! -d $destination && ! mkdir $destination ) {
    die "Can't mkdir $destination: $!";
}
copy( $mp3, $music ) or die "Can't copy $mp3 to $music: $!";