#!/opt/bin/perl

use GDBM_File;

($op, $file, $key) = @ARGV;

tie (%db, 'GDBM_File', $file, &GDBM_WRCREAT, 0600) || die "$!";
if ($op eq "store") {
	$db{$key} = time;
} elsif ($op = "list") {
	map {print "$_\n";} sort keys %db;
}
untie %db;