my $ok = GetOptions( \%args, 'i=s', 'o=s', 'w=i', 's=i', 'help|?', );

usage() if ! $ok || $args{'help'};

##</code><code>##

foreach my $opt (qw( i o )) {
    usage() unless $args{$opt} =~ /\D/;
}