LoginUser($dsn,$sql_username,$sql_password,$sql_user_table,$sql_session_table,$passhash,$sessionhash,$uvId,$username,$ipaddress);

##</code><code>##

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

##</code><code>##

use CGI; 
my $query=new CGI; 
test($query); 

sub test { 
my (%query)=@_; 
use Data::Dumper; 
print Dumper(\%query); 
}

##</code><code>##

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

##</code><code>##

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