i just made a simple script to test this out and..

#!/usr/bin/perl

use Proc::ProcessTable;

sub memory_usage {
  my $t = new Proc::ProcessTable;
  foreach my $got ( @{$t->table} ) {
    next if not $got->pid eq $$;
    return $got->size;
  }
}

print 'memory: '. memory_usage()/1024/1024 ."\n";
[download]

Running it results in:

$ ./test.pl
memory: 6.26953125
[download]

how normal is that?