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; } #### sub timediff($) { use Time::Piece; use Time::Piece::MySQL; use Time::Duration; my $time = Time::Piece->from_mysql_timestamp( $_[0] ); my $now = localtime; my $diff = ago ($now->epoch() - $time->epoch(), 1); return $diff; }