Help for this page

Select Code to Download

Select or download this

if ( `uname -s` eq "SunOS" ) {
   $file="/var/log/authlog"
} else {
   $file="/var/log/secure"
}
my $fh=IO::File->new($file, O_RDONLY) or die 'Could not open file ', $
+file, ": $!";