Help for this page
>perl -le "use POSIX; print((POSIX::mktime(localtime) - POSIX::mktime( +gmtime)) / 60 / 60);" -5