Select Code to Download

sub write_it{
my ($dept,$output)=@_;
...
close DATA;

}

$session_hash($sessio_id}{$user}=$dept_code;

    open (HTTP,$access_log)||die ("unable to open $access_log $!\n");
    while (my $line2=<HTTP>) {
...
            if (length($session) ==52) {
                &write_it($session_hash{$session},$line2);
            }