Select Code to Download

#!/usr/bin/perl

...
    printf "%8d : %s", $size, $_;
}
printf "total: %dk\n", $sum/1024;

 1454080 : 00400000-00563000 r-xp 00000000 08:03 1209182              
+              /usr/local/perl/5.12.3/bin/perl
    4096 : 00762000-00763000 r--p 00162000 08:03 1209182              
+              /usr/local/perl/5.12.3/bin/perl
...
    4096 : 7fffb83b4000-7fffb83b5000 r-xp 7fffb83b4000 00:00 0        
+              [vdso]
    4096 : ffffffffff600000-ffffffffff601000 r-xp 00000000 00:00 0    
+              [vsyscall]
total: 22032k

$ /usr/bin/perl -e 'system "ps -p $$ -o rss,vsz,comm"'
  RSS    VSZ COMMAND
 1796  22032 perl