in reply to File seek
I wouldn't name an input file "OUTPUTFILE", but that doesn't disturb perl.
The seek seeks from EOF, so negative offset is OK, if the file is longer than 500 bytes, so error checking would be better.
However, you are opening OUTPUTFILE and then seeking on CONFIRMEDOUTPUTFILE...