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