use strict;
use Proc::ProcessTable;
use File::Basename;
                                                                                
my $t = Proc::ProcessTable->new;
                                                                                
foreach my $p (@{$t->table}) {
  print 'process:  ', basename($p->cmndline), "\n";
}

__END__
for a process `perl /tmp/dodgy.pl', prints `dodgy.pl'