{ my $s; do{ local( @ARGV, $/)='1gb.db'; $s = <> }; ; my $t = do{ local( @ARGV, $/)='1gb.db'; <> }; };;