open (LOGHANDLE, ">>outputfile.txt")|| &ErrorMessage;  
flock (LOGHANDLE, 2);
print LOGHANDLE "$theDataYouWantToOuputToTheFile\n";
flock (LOGHANDLE, 8);
close (LOGHANDLE);