#!/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";

##</code><code>##

$ ./test.pl
memory: 6.26953125