use File::Basename; my $iam = basename $0; #### (my $iam = $0) =~ s,.*/,,;