my $ME = $0;
$ME =~ s/.*[\\\/]//;
# $ME =~ s/\.[^.]+$//;