use more typical Perl5 style and Getopt::Long