$ grep "mymalloc='y'" hints/*
hints/hpux.sh: $undef|false|[nN]*) usemymalloc='y' ;;
hints/ncr_tower.sh:usemymalloc='y'
hints/next_3.sh:#usemymalloc='y'
hints/next_4.sh:usemymalloc='y'
hints/sco_2_3_4.sh:usemymalloc='y'
hints/super-ux.sh: usemymalloc='y'
hints/unicosmk.sh:'') usemymalloc='y'
hints/unicos.sh: # usemymalloc='y'
hints/utekv.sh:usemymalloc='y'
####
use strict;
use warnings;
system "ps vp $$";
local $/;
open my $fd, "<", $ARGV[0] or die $!;
my $content = <$fd>;
system "ps vp $$";
undef $content;
system "ps vp $$";
####
$ dd if=/dev/zero of=zero.dat bs=8192 count=131072
131072+0 records in
131072+0 records out
1073741824 bytes (1.1 GB) copied, 8.40646 s, 128 MB/s
$ ls -lh zero.dat
-rw-r--r-- 1 zwon zwon 1.0G 2010-03-06 13:23 zero.dat
$ perl -V | grep mymalloc
usemymalloc=n, bincompat5005=undef
$ perl slurp_file.pl zero.dat
PID TTY STAT TIME MAJFL TRS DRS RSS %MEM COMMAND
3775 pts/1 S+ 0:00 0 3 18140 2244 0.0 perl slurp_file.pl zero.dat
PID TTY STAT TIME MAJFL TRS DRS RSS %MEM COMMAND
3775 pts/1 S+ 0:01 0 3 1066720 1050840 25.9 perl slurp_file.pl zero.dat
PID TTY STAT TIME MAJFL TRS DRS RSS %MEM COMMAND
3775 pts/1 R+ 0:01 0 3 18140 2264 0.0 perl slurp_file.pl zero.dat
$ /opt/perl/5.10.1/bin/perl -V | grep mymalloc
config_args='-des -Dusemymalloc -Dusethreads -Dprefix=/opt/perl/5.10.1'
usemymalloc=y, bincompat5005=undef
$ /opt/perl/5.10.1/bin/perl slurp_file.pl zero.dat
PID TTY STAT TIME MAJFL TRS DRS RSS %MEM COMMAND
3792 pts/1 S+ 0:00 0 1354 18925 2212 0.0 /opt/perl/5.10.1/bin/perl slurp_file.pl zero.dat
PID TTY STAT TIME MAJFL TRS DRS RSS %MEM COMMAND
3792 pts/1 S+ 0:01 0 1354 1067505 1050812 25.9 /opt/perl/5.10.1/bin/perl slurp_file.pl zero.dat
PID TTY STAT TIME MAJFL TRS DRS RSS %MEM COMMAND
3792 pts/1 S+ 0:01 0 1354 1067505 1050820 25.9 /opt/perl/5.10.1/bin/perl slurp_file.pl zero.dat