Hello All,
Thanks for that i know it was something simple.
It just one of those days when you cant see the woods of the trees

I have corrected the code below. But now im getting strange minute times
Time now is:Thu May 1 11:02:12 2003
0 years, 0 months, 0 days since , 0 hours since, 2 min since Thu May 1 10:00:00 2003

anymore ideas you can send my way?

regards
Gareth

#!/usr/bin/perl

use Time::Piece;
use Time::Seconds;

$before = Time::Piece->strptime("2003/05/01 10:00:00", "%Y/%m/%d %H:%M
+:%S");
$now = localtime(time);
print "Time now is:$now\n";

$diff = $now - $before;

$years  = int($diff->years);
$diff  -= $years * ONE_YEAR;
$months = int($diff->months);
$diff  -= $months * ONE_MONTH;
$days   = int($diff->days);
$diff  -= $hours * ONE_HOUR;
$hours  = int($diff->hours);
$diff  -= $minutes * ONE_MINUTES;
$minutes   = int($diff->minutes);
$diff  -= $minutes * ONE_SECONDS;
$secounds   = int($diff->seconds);

print "$years years, $months months, $days days since , $hours hours s
+ince, $minutes min since $before\n";
[download]