#!/usr/bin/perl

print "Content-type: text/html\n\n";
#use LWP::Simple;

  use DateTime;
  use DateTime::TimeZone;

  my $tz = DateTime::TimeZone->new( name => 'America/Chicago' );

  my $dt = DateTime->now();
  my $offset = $tz->offset_for_datetime($dt);
  
  print $offset;
  
  exit 0;