my @lines;
{ local( @ARGV )= $filename;
  @lines= <>;
}