use strict;
use warnings;
use Cache::FileCache;

my $cache = new Cache::FileCache( );
my $word  = $cache->get('word');

print "The word of the minute is ... ";

unless (defined $word ) {
   print "there is no word for minute!\n";
   print "Please enter the word the day: ";
   chomp($word = <STDIN>);
   $cache->set(word => $word,'1 minute');
}

print "$word\n";