Tr( { -style => "background-color:#CCCCCC" },
            td( strong( "Enter the file you want to upload" ) ),
            td( filefield( { -name=>'file',
                             -default=>'starting value',
                             -size=>30,
                             -maxlength=>80 } )
 
             ), #end td
          ), #end Tr 

##</code><code>##


#!/usr/bin/perl -w
 
use strict;
use CGI::Carp 'fatalsToBrowser';
use CGI qw/:standard/;
 
my @lines;
 
my $filehandle = upload('file') or die "No file uploaded!";
     
my $message1 = "<u>The Following Data was inserted into the Database </u>";
 
do_work();
display_page("$message1");
   
sub do_work { 
  while (<$filehandle>){
   push (@lines, $_);
  }
}
 
sub display_page {
   my $message = "$_[0]";
   print 
     header, 
     start_html( "-title" => "Results Page"),
     p("&nbsp;"),
     p( strong( $message ) ),
     p("&nbsp;"),
     p("@lines"),
     end_html;
}