ameezys has asked several questions about this code (beginning here) which may be worth reviewing given your question. Also:

• Tutorials->Getting Started with Perl.
• https://learn.perl.org.