seamountain

#!/usr/bin/perl
use strict;
use warnings;

my @day = qw(Sun Mon Tue Wed Thu Sat);
my @mon = qw(Jun Feb Mar Apl May Jun Jul Aug Sep Oco Nov Dec);
my($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime;

printf("Today is %s, %s %s, %d", $mon[$mon], $day[$wday], $mday, $year += 1900);