my $rndm = int rand(16**4);
my $sess = sprintf "%lx", $rndm;
$rndm = int rand(16**4);
$sess .= sprintf "%lx", $rndm;