Select Code to Download

$ErrloglogFile = "/export/data/secure03.principal.com/htdocs
/logs/pension/
...
$tempDir = "/tmp";
$randnum = int( rand(99999999) );
$tempFile = "$today$randnum.pnactval";

sub ReadParse {
    local (*in) = @_ if @_;
...

  return 1; # just for fun
}