use strict;
use warnings;
use Fcntl qw(:flock :seek);

my($fileName) = $ARGV[0];
print("$fileName \n");

#open the file and copy to an array
open(INFILE, $ARGV[0]) || die("Cannot Open File");
my(@aFile) = <INFILE>;
close(INFILE);


# Delete line 6
splice(@aFile,5) || die("Line 6 is already deleted");

open(OUTFILE,">$fileName") || die("Cannot Open File");
flock(OUTFILE, LOCK_EX);
seek(OUTFILE, 0, SEEK_SET);
print OUTFILE @aFile;

print OUTFILE "<APPLICATION APP_FILE_PATH=\"xxxxxx" CONFIG_FILES=\"xxxx/$fileName, MISC_FILES=\"\" LOG_FILE_DIRECTORY=\"\" OVERRIDES_DIRECTORY=\"\" CONTACTS_DIRECTORY=\"\" LICENSE_DIRECTORY=\"\"/>";
close(OUTFILE);