sub timediff($;$) {
    my $then = $_[0];
    
    my $now;
    if (defined $_[1]) {
       $now = $_[1];
    } else {
       # set $now from system clock
    }

    my $diff;

    # $diff = relative time between $now and $then

    return $diff;
}