package main;

opendir(DIR, ".");
@locations = grep(/.*/,readdir(DIR));
closedir(DIR);

foreach my $l (@locations){ 
	if( -d $l and ($l ne "." )){
		if( $l ne ".." ){
			unlink($l."/README.html") or die "can't delete README.html in $l\n";
			print "Deleted README.html in $l\n";
		}
	}
}

__END__