#Takes file name from command prompt
#Then assigns the name to str fileName
$fileName = INFILE;

#open the file and copy to an array
open(INFILE) || die("Cannot Open File");
@aFile = <INFILE>;
close(INFILE);


# How do I get the script to continue if line 6 is
# already deleted?
# Delete line 6
splice(@aFile,5) || die("Line 6 is already deleted");