use Win32::Process::Memory;
use Win32::Process::Info;

# open process
my $proc = Win32::Process::Memory->new({ name=>'calc.exe' });

#debug
printf "\nTotal Memory = 0x%X\n", $proc->get_memtotal;

#muhaa
print "\nMemory block list:\n";

my %memlist = $proc->get_memlist;

for(sort {$a <=> $b} keys(%memlist))
{
    print "$_=$memlist{$_}\n";
    print $proc->hexdump($_, 4096);
}