$today = timelocal(localtime);
my $lastaction = &date_to_unix($datestamp);
sub date_to_unix()
{
    my ($year,$mon,$day,$hour,$min,$sec) =
        $_[0] =~ /(\d+)\/(\d+)\/(\d+)\s(\d+):(\d+):(\d+)/;
    return undef unless ($day and $mon and $year);
    return timelocal(0,$min,$hour,$day,$mon-1,$year-1900);
}

$duration = ($today - $lastaction)/3600;

##</code><code>##

$durationTemp = ($today - $lastaction) / 3600;
$duration=sprintf("%d",$durationTemp);