Can someone tell me a good method of uploading a csv file via CGI so that I could read its contents with DBI? All I would like to do is get file stored on the server so it can be opened by perl code and read.

Here is a code snippet I created to test interaction in the CGI for getting information on the name and type of file:

use CGI qw(:standard);
print "Content-type: text/html\n\n";

&main;

sub main()
{
    my $query = new CGI;
    my $indexTemp = HTML::Template->new(filename => 'index.tmpl');
    
    my $fileName = $query->param('filepath');
    my $type = $query->uploadInfo($fileName)->{'Content-Type'};
    
    print $query->param('eventname')."<br />\n";
    print $query->param('date')."<br />\n";
    print $query->param('starttime')."<br />\n";
    print $query->param('endtime')."<br />\n";
    print $query->param('location')."<br />\n";
    print $fileName."<br />\n";
    print $type."<br />\n";
   }

}
[download]

Thank you in advance for your help.