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;

}