#!/usr/bin/perl
#ex_last
# Learning Perl, Chapter 1, "last-time-a-word-was-used display program"
dbmopen(%last_good,"lastdb",0666);
foreach $name (sort keys(%last_good)) {
		$when = $last_good{$name};
		$hours = (time - $when) / 3600; # compute hours ago
		write;
}

format STDOUT =
User @<<<<<<<<<<<: last correct guess was @<<< hours ago.
$name, $hours
.