Select Code to Download

$VAR1 = [
          '2100', 
...
            '2100',
            'some output, REP.prm:  DDL operation is of default scope.
+'
          ],

 %alertlog = map { $_->[0] => [ $_->[2], $_->[3], $_->[4], $_->[5], $_
+->[6] ]; }
          sort { Date_Cmp($a->[1], $b->[1]) }
...
            $timestring = $loglines[0] . ' ' . $loglines[1];
            [ $loglines[3], (ParseDate($timestring), $loglines[0], $lo
+glines[1], $loglines[2], $loglines[3], $loglines[4]) ];
          } @messages;

DUMP OF %alertlog from check_alertlog():
$VAR1 = {
...
                      'another message...'
                    ]
        };

$VAR1 = [
          [
...
            '2100',
            'bunch of info, REP.p:  Executing operation.'
          ],