Select Code to Download

sub dhm {
    my $time = shift;
...

    return $time;
}

  time2string(time, bold => 1) # Bold text for IRC.

  time2string(time, long_format => 1) # Use long(er) unit names.

  time2string(time, long_format => 2) # Full length unit names.

 time2string(time, format => 'Sec Min Hour Day Week Month Year'); # De
+fine your own unit names.

  time2string(time, spacing => 0, format => 'Sec Min Hour Day Week Mon
+th Year'); # Turn off spacing.

  dhm(time) # For things that don't need a lot of spiff.