#!/usr/bin/perl -w
## Author: Vulcho Nedelchev (weby@bastun.net)
## Desc: Template for parsing options in command line programms
## Date: Tuesday 15 April 2003
## Version: 1.0.0

use Getopt::Long;
use strict;

my $opt1="file.dat";
my $opt2=100;
my $opt3=0;
my $help=0;

my $result=GetOptions (	"opt1=s" => \$opt1,    # string
			"opt2=i" => \$opt2,    # digit
			"opt3"   => \$opt3,    # flag
			"h|help" => \$help);

&usage if $help;

print "opt1: $opt1\n";
print "opt2: $opt2\n";
print "opt3: $opt3\n";

sub usage {
	print <<OK;
  usage:
    opt1 - string
    opt2 - digit
    opt3 - flag

    weby will rox your world !
OK
	exit;
}