do { local *ARGV; @ARGV= $filename; <> }