Select Code to Download

@mp3files = <$INDIR/*.mp3>;
$OUTDIR = "./NEWDIR";

...
foreach my $FILE (@mp3files) {
    printf "File: %s\n",$FILE;
}

sub move {
    system "mv $_[0] $_[1]"; # $_[1] = directory + "/" + $_[0] specifi
+ed file
}