sub getfile { local *ARGV ; @ARGV = shift ; wantarray ? map /(.*)/, <> : do { local $/ ; <> } }