Select Code to Download

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

      \%session_hash;

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