# strip to basename
($progname = $0)        =~ s!^.*/!!;