Select Code to Download

my $username=CGI::Simple->new;
my $pass=CGI::Simple->new;
$username->param('textfield');
$pass->param('pass');

my $username = 'Fred';
my $password = 'Flintstone123';
my $cgi      =  CGI::Simple->new( { username => $username, pass => $pa
+ssword } );

user_crypt($cgi);

sub user_crypt
{
...

    createUser($cryUser, $encode);
}