use strict;
my $filename;

print "Enter a filename(with full path) to search.\n";
chomp($filename=<STDIN>);

open(INPUT, '$filename') or 
	die ("Can't open '$filename' for reading: $!\n");