use strict ;
use warnings ;
use Win32::Process::Memory ;
my $proc = Win32::Process::Memory->new({ name => 'notepad.exe' });
printf "Commited Memory = %X Bytes\n", $proc->get_memtotal ;
__END__

Win32::Process::Info is required to get process by name at C:/Strawberry/perl/site/lib/Win32/Process/Memory.pm line 35.