Help for this page
$time = timelocal($sec,$min,$hours,$mday,$mon,$year);
use Time::Local; my $time = timelocal(0, 0, 0, 21, 4, 1981); my $wday = (localtime $time)[6];