Fbhuh

#!/usr/bin/perl -- use strict; use warnings; use CGI::FormBuilder; { my $env_choose = CGI::FormBuilder->new( fields => [qw(env_type env_state)], header => 1, method => 'post', keepextras => 1, ); if ($env_choose->submitted) { print $env_choose->confirm; } } ##

##

$ perl fbhuh

$ perl fbhuh env_type=something env_state=something EXTRA=STUFF

##

##

 else {
        print $env_choose->render;
    }

##

##

Content-Type: text/html; charset=iso-8859-1






Fbhuh


Fbhuh







  Env Type
  


  Env State
  


  






##

##

$ perl fbhuh env_type=something env_state=something EXTRA=STUFF _submitted=1

##

##

Content-Type: text/html; charset=iso-8859-1






Fbhuh


Fbhuh
Success! Your submission has been received Thu Aug 23 05:03:37 2012.







  Env Type
  something


  Env State
  something