use strict;
use warnings;

use Random::Things qw(RandDayPart RandLight RandWeather RandTense);

my $random_day_part = RandDayPart;
my $random_light = RandLight;
my $random_weather = RandWeather;
my $random_tense = RandTense;

print "It $random_tense a $random_light and $random_weather $random_day_part."