my $iam = `basename $0`;
chomp $iam;

##</code><code>##

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

##</code><code>##

use File::Basename;

my $iam = basename $0;