use Time::Local;
$msgtime = SelectTimeFromDatabase($MRequestId);
$curtime = time();   
#time stamp format in database - 06/03/2009 16:37:47.08812
$msgtime =~ /^(\d+)\/(\d+)\/(\d+) (\d+):(\d+):(\d+)\..*$/;
$month = $2 - 1 ;
# timelocal($sec,$min,$hour,$mday,$mon,$year);
$msgtime =  timelocal($6,$5,$4,$1,$month,$3);
return ( ($curtime - $msgtime) >= 30 ? 1 : 0 );