perl -e 'system(q{perl testflock.pl ; ls -al flockdata; rm flockdata}) for 1..20'