my ($basename) = $0 =~ m/.*\/(.*)/;