Select Code to Download

File 1,

...

1141286737,ServerB,Net Down
1141286780,ServerD,Bit Bucket Missing

File 1,

...

1141286737,ServerB,Net Down
1141286780,ServerD,Bit Bucket Missing

my %index;
foreach my $entry (@file1) {
...
        print "Entry $entry is screwed up!\n";
    }
}