#!/usr/bin/perl -w

print "Content-Type: text/html\n\n";
use CGI;
use Net::Google::Calendar;
use CGI::Carp qw( fatalsToBrowser );
use Date::Calc qw(:all);
use HTTP::Request::Common;
use LWP::UserAgent;
use Time::Local;
use File::Copy;
use File::Path;
use PDF::Create;
use PDF::CreateSimple;
use DBI;
use Geo::IP;
use MIME::Base64 qw(encode_base64);
$query = new CGI;