#!C:\Perl\bin\perl.exe 
 
use CGI qw(:standard); 
use File::Temp qw/ tempfile  /; 
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
use strict; 
use Spreadsheet::WriteExcel; 
 
 
 
require "cgi-lib.pl"; 
 
 
print "Content-type: text/html\n\n"; 
 
print <<EndHTML; 
   <h3><font color=#D02090>Model:</font></h3><h4> Rules for CDC Families</h4> 
EndHTML 
 
    use strict; 
         use DBI; 
          
 
 
 use Oracle::SQLLoader qw/$CHAR $INT $DECIMAL $DATE/; 
  
 my $dsn   = "dbi:Oracle:XE"; 
 my $proxy = "hostname=128.213.xx.xxx;port=3333"; 
 my $dbh = DBI->connect( "dbi:Proxy:$proxy;dsn=$dsn", "uname", "passwd" ); 
  
  $dbh->disconnect;

print header(); 
warningsToBrowser(1); 
 
print h3({-style=>'Color: #D02090;'}, 'Model:'), 
      h4('Rules for CDC Families');