#makes empty batch file

use strict;


my $donedir="E:\\chartsweep\\done";
opendir(DIR,$donedir);
my @donefiles=readdir(DIR);
closedir(DIR);
my @mp3list=();

foreach my $bit (@donefiles)
{
	if ($bit =~ /^..[^78].*\.mp3$/)
	{
		push(@mp3list,"$donedir\\$bit");
	}
}


my $base="C:\\projects\\chartsweep90s";
my $out="$base\\grabparts\.cfg";
print "out is $out\n";
open OUT,"> $out";

foreach my $bit (@mp3list)
{
	print OUT "$bit\n";
	print OUT "Start=\n";
	print OUT "End__=\n\n";
}