(my $this_proc = $0) =~ s:^.*/::;

##</code><code>##

$this_proc = $0 =~ /^.*\/(.+)$/ ? $1 : $0;