How can I capture the complete commandline in Perl?

Question

Suppose the call was

/usr/local/bin/perl verify.pl 1 3 de# > result.log

Inside verify.pl I want to capture the whole call above and append it to a log file for tracking purposes.

How can I capture the whole call as it is?

Answer 1

There is way (at least on unix-systems) to get whole command line:

my $cmdline = `ps -o args -C perl | grep verify.pl`;
print $cmdline, "\n";

e: Cleaner way using PID (courtesy of Nathan Fellman):

print qx/ps -o args $$/;