my @lines= do { local *ARGV; @ARGV= $name; <> };