print "Gimme a filename to examine: ";
chop($filename=<STDIN>); ## Not many filenames have a newline...

open(FILE, $filename) || die "Could not open $filename: $!\n";
while(<FILE>) {
  chomp;
  print "Found $_ in $filename\n" ## Need a newline here!
}
close(FILE); ## not FILEDESC...