C:\test>p1
[0]{} Perl> print mem;;
9,432 K

[]{} Perl> open I, '<', 'test.dat'; my $s; do{ local $/; $s = <I> }; print mem;;
997,784 K

[]{} Perl> Terminating on signal SIGINT(2)

C:\test>p1
[0]{} Perl> print mem;;
9,440 K

[]{} Perl> open I, '<', 'test.dat'; my $s = do{ local $/; <I> }; print mem;;
1,986,060 K

[]{} Perl> Terminating on signal SIGINT(2)