#!/usr/bin/perl

open my $maps, "<", "/proc/self/maps" or die $!;

my $sum;
while (<$maps>) {
    /^(\S+)-(\S+)/;
    my $size = hex($2)-hex($1);
    $sum += $size;
    printf "%8d : %s", $size, $_;
}
printf "total: %dk\n", $sum/1024;