#!/usr/bin/perl -w
dbmopen(%last_good, "lastdb", 0666);
foreach $name (sort keys %last_good) {
	$when = $last_good{$name};
	$hours = (time - $when) / 3600;
	write;
}
format STDOUT =
User @<<<<<<<<<: last correct guess was @<<< hours ago.
$name, $hours
.