Select Code to Download

    $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];