use Proc::ProcessTable;

my $t = Proc::ProcessTable->new();

foreach my $p ( @{$t->table} ) {
    if($p->pid() == $$) {
        print "I'm ", $p->size(), " bytes big.\n";
        last;
    }
}