#!/usr/bin/perl -w
# mct, 2002-06-08

use strict;

my $file = "/var/spool/uptimed/records";
my @data;

open F, $file or die "$file: $!\n";

while (<F>)
{
    my ($btime, $utime) = split /:/;
    my $stime = $btime + $utime;
    push @data, $stime;
}

@data = sort @data;
pop @data;

print scalar(localtime $_), "\n" for (@data);