The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

$obj = FlatLock->new (%inp);

 %inp hash can contain follow members:
   id     - Id of new flocked fibre.(Default: rand() 1 to 10000)
   path   - Full path to directory where temp files will be created!
            (Default: '/tmp')
   wpc    - Is time between two attempts when fibre is locked! 
            (default is rand() between 0.3 - 0.6 sec.)
   tpc    - Is total number of attempts in case of locked fibre.
            (default: 6)
   critical_time - Is maximum time in seconds before engine to 
                   force deleting of locked fibre! (default: 300)