# ex_10-1
# Learning Perl on Win32 Systems, Exercise 10.1

print "What file? ";
chomp($filename = <STDIN>);
open(THATFILE, "$filename") ||
  die "cannot open $filename: $!";
while (<THATFILE>) {
  print "$filename: $_"; # presume $_ ends in \n
}