Select Code to Download

use strict;
use warnings;
...
Weather,stormy,windy,rainy,calm
Light,bright,dark,gloomy,dazzling
DayPart,morning,evening,afternoon,night

use strict;
use warnings;
...
my $tense = RandThing->new ('Tense', 'was', 'is', 'will be');
my $la = RandThing->new ('LA', [qw(Lady Aleena magic)]);
print "It $tense a $lt and $wt $dp ($la).\n";