use File::Basename;
my $iam = basename $0;