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