It doesn't exist, unless you consider some kind of smart phone that runs perl and connect it to a lock of some sort, or some kind of networked lock that contacts a server for authentication, which could be perl .... locks are mostly a proprietary thing