#! 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 };


##</code><code>##

c:\test>type junk.bat
dad

c:\test>junk.bat

c:\test>dad
Parent process name : C:\Windows\System32\cmd.exe
Command line: "C:\Windows\System32\cmd.exe"