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