opendir(DIR, $INDIR) 
@mp3files = <*.mp3>;
$OUTDIR = "./NEWDIR";

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

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