#!/usr/bin/perl -w
 
# Display all erors to screen
$|++; # autoflush buffers;
use CGI::Carp 'fatalsToBrowser';
 
use strict;
use DBI;
use CGI qw/:standard/;
 
my $infile = upload ('file') or die "File was not uploaded correctly\n"; 
 
my ($ip,$port,@services,@banners,@names,@ips,@ports);
my %data;
 
print header,
 
start_html ("-title" => "Review Page");
 
----------- perl stuff ---------------
 
 
print "<table>";
 
   print "<tr><br><br>";
   print "<td><b><u>IPS</u> - </b>@ips<br><br>";
   print "</tr>";
   print "<tr>";
   print "<td><b><u>Cnames</u> - </b>@names<br><br>";
   print "</tr>";
   print "<tr>";
   print "<td><b><u>Services</u> - </b>@services<br><br>";
   print "</tr>";
   print "<tr>";
   print "<td><b><u>Banners</u> - </b>@banners<br><br><br>";
   print "</tr>";
 
   print "</table>";
    
start_form( { -action  => "action_dbi.cgi",
                      -enctype => "application/x-www-form-urlencoded",
                      -method  => "post" } ),
 
   h1( strong( "Does this format look correct?" ) ),
      checkbox_group(-name=>'question',
                                -values=>['yes','no'],
                                -default=>['yes'], 
 
   p( "&nbsp;" ),
   p( input( { -type  => "submit",
               -value => "submit"} ),
   ), #end p
 
 
end_form,
 
end_html;