#!/usr/bin/perl -w
if ( @ARGV[1] eq "" ) 
{  print "Please include a parameter of the new directory"
}