templateSimple.pl

#!/usr/bin/env perl -w
# Time-stamp: <2008-03-03 11:24:07 Tao Liu>
#
# By: Tao Liu <[email protected]>
#

use strict;

die "need x paras: $0 <options> [y=blah]\n" if @ARGV < x;

my $unnamed_option = shift;
my $named_option;

foreach (@ARGV) {
  if (/^y=(.*?)$/) {
	$named_option = $1;
  }
}

sub main {

}

main ();

1;