print "\nEnter full name of file to try to read: ";
my $F = <STDIN>;
$F =~ tr`<>*%$?\x00-\x1F\"\|``d;
local *FILE;
open FILE, "<$F" or die "\nError: Cannot open file - $F\n";
print <FILE>;
close FILE;