#! /usr/bin/perl -w

$a=0;
foreach $file (<*>) {
	($Upper, $type) = split(/\./, $file);
	$Upper =~ tr/A-Z/a-z/;
#	$Upper =~ tr/a-z/A-Z/;
#	print "$Upper.$type\n";
	if ($type) {
		if ($type ne 'pl') {
#	rename ("$file", "$Upper.$type");
	symlink("$file", "$Upper.$type");
	$a += 1;
	}
	}
}
print "$a files linked \n";
