use strict ;
use warnings ;
use Win32::Process::Info ;
use Data::Dumper;

foreach ( (Win32::Process::Info->new( '', 'NT' )->GetProcInfo ) ) {
    print Dumper($_);
    print '*'x75, "\n";
}