#mover
my $base="C:\\projects\\chartsweep90s\\first10";
opendir(DIR,$base);
my @donefiles=readdir(DIR);
closedir(DIR);
my $out="move\.bat";
print "OUT is $out\n";
open OUT,"> $out";
foreach $bit (@donefiles)
{
	if (($bit =~ /\.mp3/) && ($bit =~ /000\.00_000\.([0-9]{2})/))
	{
		print OUT "move \"$base\\$bit\" $base\\$1\n";
	}
}
close OUT;