gistfile1.pl

my $gs = new Getopt::String(
	option_switch('help', aliases => [qw/h/]),
	option_counter('verbose', aliases => [qw/v/]),
	option_stop(""),
	option_arg('output', aliases => [qw/o/], key => 'outfile'),
	option_arg('foo', aliases => ['foo'], optional_arg => 1)
);
my ($opts, $remain) = $gs->parse("");