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