#!/usr/bin/perl -w

use strict;
use Getopt::Long;

my $in;

GetOptions (    'in=s' => \$in );

if ($#ARGV < 0) {
  print "you need to put in some command line options!\n";
  exit(1);
}