Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                );
 }
</html>

sub log_file {
    my $self = shift;
...

    ${*$self}{exp_Log_File} = $fh;
}

testuser pts/6 localhost Tue Jun 17 09:16 still logged in

...
vscan:x:1001:10:Amavis User:/usr/local/encap/amavis-perl-11:/bin/sh
sshd:x:22000:22000:SSHD privsep User:/var/empty:/bin/false
$