Select Code to Download

/opt/foobar/myapps/---+
       |            |
...
                    |
              thankyou.html

#!/usr/local/bin/perl -T

...

my $app = Acmecorp::Contact->new( PARAM => 'client' );
$app->run();

   <form action="/contact/index.cgi" method="post">
      <input type="hidden" name="rm" value="s" />
...
      <p>More info: <input name="more_info" type="checkbox" value="yes
+" /></p>
      <p><input name="Submit" type="submit" value="Submit" /></p>
   </form>

package Foobar_Super;

...
                      {RaiseError => 1} );
}
1;

#--- MySQL Server ---
[db]
host  = DBI:mysql:foobar:localhost
user  = acmecorp
pass  = AKCgKYxc

package Acmecorp::Contact;
use base qw(Foobar_Super Common);
...
   $self->dbh->do($stmt, undef, values %sql);   
}   
1;

sub validate {
   my $self = shift;
...
   }
}
1;