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

That is the old way to do it.... The Perl5 way has you

use Fcntl qw(:flock); #Imports LOCK_EX, LOCK_SH, LOCK_NB
[download]

Can somebody show this guy how to do it the Perl 5 way? I'm not really up on it yet.