(my $iam = $0) =~ s,.*/,,;