my $day = strftime '%d', localtime;