#!/usr/athena/bin/perl
open(FI, "/mit/mkgray/afs/lastfile") || die "Couldn't open.";
open(FO, ">/mit/mkgray/afs/times") || die "Couldn't";

while (<FI>)
{
(@line) = split;
(@nums) = split(/[\(\):]/, $line[$#line]);
$time = ($nums[1]*60)+$nums[2];
print("$nums[1], $nums[2]\n");
print (FO "$time\n");
}