Help for this page
Select Code to Download
Select
or
download this
use HTTP::Date; print ( str2time($date1) - str2time($date2) ) / 3600;