use Fcntl qw(:DEFAULT :flock);	# from the Perl Cookbook
open(FILE, ">file.log") or die "Can't open and truncate file: $!";
flock(FILE, LOCK_EX) or die "Can't obtain exclusive lock: $!";

print FILE "$a:$b:$c\n";
close FILE;