Select Code to Download

#!/usr/bin/perl -w

use strict;
...
}
close WTMP;
print "$reccount records read\n";

384 - root      at Wed May  3 11:42:48 2006
384 - <no name> at Wed May  3 11:42:49 2006
384 - admin_esper       at Mon May  8 13:01:38 2006
...
...
384 - root      at Mon May 22 10:15:37 2006
108 records read

384 - root      at Wed May  3 11:42:48 2006
384 - <no name> at Fri Jan  2 00:59:44 1970
...
384 - }í        at Wed Dec 31 18:00:00 1969
79 - <incomplete record>
108 records read

384 - root      at Thu Aug 30 22:55:32 1906
384 - <no name> at Wed Mar 13 03:15:48 1907
384 - admin_esper       at Sat Apr 18 15:48:52 1903
...
...
384 - root      at Wed Sep  8 00:48:36 1915
108 records read