my $day = (localtime)[3];