#!/usr/bin/perl -w

use strict;
use Getopt::Long;

my $targ	= 'localhost';
my $firstport	= 1;
my $lastport	= 1024;
my $proto	= 'tcp';
my $udptimeout	= 3;
my $contimeout	= 3;

{
  my %options;
  GetOptions(\%options, qw(targ=s firstport=s lastport=s proto=s udptimeout=s contimeout=s help!));

  if (defined $options{help}){
    Usage('You rang, sir?');
    exit;
  }

  ($targ, $firstport, $lastport, $proto, $udptimeout, $contimeout) =
  @options{qw(targ firstport lastport proto udptimeout contimeout)};
}