added Perl file locking example