#!/usr/bin/perl -w

use strict;
use Getopt::Std;

my %args;

getopts('w:s:i:o:h', \%args);
&usage() if 
	   @ARGV
	|| $args{h} 
	|| (exists $args{w} && !defined $args{w} || $args{w} !~ /^\d*$/)
	|| (exists $args{s} && !defined $args{s} || $args{s} !~ /^\d*$/)
	|| (exists $args{i} && !defined $args{i} || $args{i} =~ /^-\w$/)
	|| (exists $args{o} && !defined $args{o} || $args{o} =~ /^-\w$/)
;