#!/usr/bin/perl -Tw
# upload1.cgi

use strict;
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);

my $File_Name = param('filename');
my $Mime      = uploadInfo($File_Name)->{'Content-Type'};

$CGI::POST_MAX = 1024 * 250;   # Limit to 250kb posts...

Print_Results();


sub Print_Results{
    print header;
    print start_html('File Upload Example 1');

    print qq(<PRE><B>File Name:</B> $File_Name\n);
    print qq(<B>Mime:</B> $Mime\n);
    print qq(<B>File Contents:</B><XMP>\n\n);

    while(<$File_Name>) { print; }

    print qq(</XMP></PRE>);
    print end_html;
}