Select Code to Download

sub gmtime {
    usage "gmtime(time)" if @_ != 1;
    CORE::gmtime($_[0]);
}

sub timegm {
    my ($sec,$min,$hour,$mday,$month,$year) = @_;
...
    $xsec + 86400 * $days;
}