This script is vulnerable to Perl injection.
Perl code injection is a vulnerability that allows an attacker to inject custom code into the server side scripting engine. This vulnerability occurs when an attacker can control all or part of an input string that is fed into an eval() function call. eval() will execute the argument as code.
Your script should properly sanitize user input.