use strict ;
use warnings ;
use Win32::Process::Memory ;
my $proc = Win32::Process::Memory->new({ name => 'cmd.exe' });
#my $proc = Win32::Process::Memory->new({ name => 'notepad.exe' });
print "ok1\n";
printf "Commited Memory = %X Bytes\n", $proc->get_memtotal ;
print "ok2\n";
__END__
pargs->pid = 7984
hi 1
hi 2
ok1
hi 3
.....(hangs here)