sub RemoteTime {
    my $realtz = $ENV{ TZ };
    my ( @return, $return );
    my $wantarray = wantarray;
    $ENV{ TZ } = shift;
    tzset;
    if ( $wantarray ) {
        @return = localtime();
    }
    else
        $return = localtime();
    }
    $ENV{ TZ } = $realtz;
    tzset;
    return $wantarray ? @return : $return;
}