How sure do you want to be and how much work are you prepared for to get the information?

There is no (officially) documented way of obtaining information about the parent process, but there is a fairly well known undocumented method of obtaining the ppid. It means getting your fingers dirty with Win32::API or XS code.

The starting point is the semi-documented, could-change-any-moment API ZwQueryInformationProcess, and the undocumented PVOID Reserved3 member of the PROCESS_BASIC_INFORMATION structure, which is the parent process id. There are various ways of getting the name/path once you have that.

UPDATE: Bah. This doesnt work. Never mind me. For some reason when you click on the script it gets executed from a console, so the -t tests says true. Wheras if i launch a script from my editor it shows false, so I assumed the same would be true when double-clicking. I shouldnt have assumed..... :-(

#!perl -l
open my $log,">>C:/tmp/log.log" or die $!;
my $term_type=-t STDIN ? "Terminal" : "Non Terminal";
print $log localtime(time)." $term_type";
print localtime(time)." $term_type";
[download]