Perl form controller