sub ex {
	my $f = shift;
	my $enc = "cp1252";
	print $f;
	Encode::from_to($f, 'utf8', $enc);
	print ((-e $f) ? " exists" : " doesn't exist");
	print "\n\n";

}