#!/Perl/bin/perl
my %last_good;
my ($name, $hours, $when);

dbmopen( %last_good, "lastdb", 0666 );

foreach $name (sort keys(%last_good)) {
    $when = $last_good{ $name };
    $hours = int ((time - $when) / (3600*24));
    write;
}

format STDOUT =
User @<<<<<<<<<<<: Der letzte richtige Tip war vor @<<<< Tagen.
$name, $hours
.