use strict;
use Getopt::Std;

our ($opt_h, $opt_a);
getopt('ha');
print "help=$opt_h\n" if (defined $opt_h);
print "all=$opt_a\n"  if (defined $opt_a);