#!/usr/bin/perl -w
use strict;

my $length = @ARGV;

## If the number of arguments is less than two, it dies
## else it shifts them off of the array and into the
## variables

if($length<2){
  die"Not enough arguements!\n";
}else{
  my $arg1 = shift;
  my $arg2 = shift;
}