Help for this page

Select Code to Download


  1. or download this
    sub make_session {
       my ($u,$a,$s)=@_;
    ...
       };
           $s=\%session_hash;
    }
    
  2. or download this
          \%session_hash;
    
  3. or download this
       while (my $line2=<HTTP>) {
           chomp;