D:\perl\scratch>(start flock_test.pl) && (perl -e "sleep 2") && (flock_test.pl)
Opened file
Printed
Got lock