#!c:\Perl\bin\perl
use warnings;
use parse_data_both;
use GUI;
use CGI;
use constant USERNAME_TEST_PASS => 42;

my $q = CGI->new;

&DataHandler::parse_form_data (*simple_form);