#! perl -slw
use strict;
use Win32::Process::Info;;

my $pi = new Win32::Process::Info;;
my @info = $pi->GetProcInfo( $$ );

my $ppid = $info[0]{ ParentProcessId };
@info = $pi->GetProcInfo( $ppid );

print "Parent process name : ", $info[0]{ ExecutablePath };
print "Command line: ", $info[0]{ CommandLine };