sub make_session {
   my ($u,$a,$s)=@_;
   %session_hash={
       user=>$u,
       dept=>$a
   };
       $s=\%session_hash;
}

##</code><code>##

      \%session_hash;

##</code><code>##

   while (my $line2=<HTTP>) {
       chomp;