sub list_files{

	opendir(my $dir,".") or die "Could not open current directory";
	while (my $file = readdir($dir)) {
		print "$file\n" if (!($file=~m/(?=\.pl$)/));
	}
	closedir $dir;

}