Write the scenario describe below in using Perl programming laguage

Scenario:

If you hear a knock on the door and they knock three times, and no one else is around, or they knock another three times, answer the door.