If you use the object form of CGI (with your $query object), you can skip importing tags on the use line.

Besides that, there's not much to optimize here.

You ought to use the -w and -T flags, though (see perldoc perltaint).