http://www.perlmonks.org?node_id=376121


in reply to complex checkbox group

You need Date::Calc from CPAN:
#!/usr/bin/perl use Date::Calc qw( Time_to_Date Day_of_Week ); my @weekday=( "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ); my ($y,$mo,$d,$h,$m,$s)=Time_to_Date(time); my $dow = Day_of_Week($y,$mo,$d); print "Today is $weekday[$dow]\n";