#!/usr/bin/perl

@local=(localtime);
@gmt=(gmtime);
$diff=$gmt[2]-$local[2];
if ($gmt[5] > $local[5] || $gmt[7] > $local[7])
{
  $diff += 24;
}
elsif ($gmt[5] < $local[5] || $gmt[7] < $local[7])
{
  $diff -= 24;
}