my $fh;
  open($fh,'<',$file);
  while (<$fh>) {
    print "line: $_\n";
  }