use strict;
use warnings;

use Proc::ProcessTable;

my $proc_table = Proc::ProcessTable->new->table;
my ($process) = grep { $_->pid == $$ } @$proc_table;

print $process->cmndline, "\n";