use strict;
use Win32::Process::Info;

my $pihandle = Win32::Process::Info->new();
my @procinfo = $pihandle->GetProcInfo();

my $ParentPID;
my %ProcNames;

foreach my $PIDInfo (@procinfo) {
	$ProcNames{$PIDInfo->{ProcessId}} = $PIDInfo->{Name};

	if ($PIDInfo->{ProcessId} == $$) {
		$ParentPID = $PIDInfo->{ParentProcessId};
	}
}

print "Parent's name is ", $ProcNames{$ParentPID}, "\n";