C:\test>\Perl22\bin\p1.pl
[0]{} Perl> print mem;;
9,404 K

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

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

C:\test>\Perl22\bin\p1.pl
[0]{} Perl> print mem;;
9,392 K

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

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