#!/usr/bin/perl
use DBI;  
use Date::Calc qw( Decode_Date_US Add_Delta_Days);
use File::Copy;
use LWP::Simple;
use CGI::Carp 'fatalsToBrowser';
use CGI qw/:standard/;

$q = new CGI;

my $variables;
etc...