use warnings;

#use diagnostics; <-DID NOT GIVE ANY USEFUL INFO 
#use Carp qw( confess ); <-BLOWS UP THE PERL CI
#    $SIG{__WARN__} = \&confess;

#THIS SUPPRESSES ALL WARNINGS EXCEPT THE ONE ABOVE WHICH PRINTS OUT AT THE BEGINING OF THE OUTPUT AND IS DRVING ME NUTS!!!
local $SIG{__WARN__}=sub{};

use Data::Type qw(:all +W3C);   #used to valdiate data types of values
use DBD::ODBC;                  #sql support
use File::Find;                 #file and directory recursion 
use Log::Log4perl;              #log file and vebosity control
use Net::Telnet;                #telnet support
use Switch;                     #perl switch and case support
use XML::Simple;                #xml input, output & parsing
use Tie::Handle::CSV;           #csv support

##</code><code>##

Use of uninitialized value in hash element at C:/Perl/site/lib/Locale/SubCountry.pm line 439, <DATA> line 15048.
[2007/10/06 06:47:32-INFO]: Establishing Telnet connection to host...
[2007/10/06 06:47:32-INFO]: Succesfully connected to host via Telnet
...
...