root@geedorah:~# perl foo.pl 
eval error - ''
lock says: 0 but true
unlock says: 0 but true