Select Code to Download

LoginUser($dsn,$sql_username,$sql_password,$sql_user_table,$sql_sessio
+n_table,$passhash,$sessionhash,$uvId,$username,$ipaddress);

my ($result, $login_timeout) = LoginUser($query);

use CGI; 
my $query=new CGI; 
...
use Data::Dumper; 
print Dumper(\%query); 
}

$VAR1 = {
          'CGI=HASH(0x3f7e24)' => undef
        };

my ($result, $login_timeout) = LoginUser($query);