$contents=slurp('foobar');
sub slurp {local$/=<>if local@ARGV=@_}