sub new_caching_mktime
{   my ($sec, $min, $hour, $day, $mon, $year) = @_;
    my $time;
    my $curinput = "$sec:$min:$hour:$day:$mon:$year";
    if ( $curinput eq $saveinput )
    {    $time = $savetime;
    }
    else
    {
        $time = POSIX::mktime( $sec, $min, $hour, $day, $mon, $year );
        $savetime = $time; $saveinput = $curinput;
    }
    return $time;
}