#!/usr/local/bin/perl


# PERL program to move files from sienew2 to /wblake/public_htm/SONGS
# based on a different script by Patrick Darden Oct 17 1995 
# The Blake Project
#


while($filename=shift(@ARGV))
{
	open(FILE, "$filename") || die "No such file.\n";
	@file=<FILE>;
	close FILE;

	if ($filename =~/(\d\d?).*\.html/)
	    {system("cp $filename /home/wblake/public_html/SONGS/$1");}
}