in reply to getting the exact string used to call a perl script
use Proc::ProcessTable;
sub GetCommandLineForCurrentProcess {
my (%args) = @_;
my $t = new Proc::ProcessTable( 'cache_ttys' => 1 );
foreach $p (@{$t->table}) {
if ($p->{pid} == $$) {
return $p->{cmndline};
}
}
}