#!/usr/bin/perl

use strict;

# Calculate ticks per second, minute, hour, and day
my $TICKS_PER_SECOND = 100;
my $TICKS_PER_MINUTE = $TICKS_PER_SECOND * 60;
my $TICKS_PER_HOUR   = $TICKS_PER_MINUTE * 60;
my $TICKS_PER_DAY    = $TICKS_PER_HOUR * 24;

sub tick2time
{
        my $ticks   = shift;
        my $seconds = int($ticks / $TICKS_PER_SECOND) % 60;
        my $minutes = int($ticks / $TICKS_PER_MINUTE) % 60;
        my $hours   = int($ticks / $TICKS_PER_HOUR)   % 24;
        my $days    = int($ticks / $TICKS_PER_DAY);

        return ($days, $hours, $minutes, $seconds);
}
[download]

-Matt

Thanks! I actually figured out a solution like this:

$uptime=$snmp->get("sysUpTime.0");
$uptime=localtime(time()-($uptime/100));
[download]

For an "upsince" stamp...
However, I like the granularity of your solution, so I think I'll plagiarize the heck out if it if you don't mind, as it'll give me a better timestamp for the HTML output.. Thanks!