#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use Getopt::Declare;

# -h, -v, --help, --version are included
# and these are tabs - not spaces!
my $spec = q(
	-a	List all matches
	--all	[ditto]
);
my $args = Getopt::Declare->new($spec);
my $all  = $args->{'--all'} || $args->{'-a'};

for my $woord ($args->unused) {
   # insert for loop block innards from code above
}