use CGI qw/:standard/;

# ...

print start_form( -action=>'cgi2.cgi' );