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

foreach my $FILE (@mp3files) {
    my $tmp= system("wine .......");
    move($INFILE,"$OUTDIR/$INFILE");
    if ($tmp!=0) { last; }
}

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

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

##</code><code>##

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