$fp->writeunix($lt, "$lt^###");
$first = $t;
}
my $buf = sprintf "%02d:%02d:%02d", (gmtime($t))[2,1,0];
$fp->writeunix($lt, "$lt^RING: $buf^$str");
$fp->writeunix($lt, "$lt^###");
$first = $t;
}
my $buf = sprintf "%02d:%02d:%02d", (gmtime($t))[2,1,0];
$fp->writeunix($lt, "$lt^RING: $buf^$str");