in reply to non-option argument question
sub usage { print STDERR $_[0] if @_; print STDERR "usage: ...\n"; exit(1); } GetOptions(\%opt, 'shell=s', 'foo=s', 'bip', 'bar', 'baz' ) or usage(); defined($opt{input}) or usage("Argument 'input' is required\n");
In Section
Seekers of Perl Wisdom