Select Code to Download

sub make_session {

...
        $s=\%session_hash;

}

&make_session($user,$dept,$sid);

open (HTTP,$access_log)||die ("unable to open $access_log $!\n");
    while (my $line2=<HTTP>) {
...
            print "match found\n";            
        } 
    }