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

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

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

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

print header(-type=>$Mime);

Print_Results();


sub Print_Results{
    my $data;

    if($Mime !~ /text/){
        binmode($File_Name);
        while(read($File_Name, $data, 1024)) { print $data; }
    } 
    else {
        print start_html('File Upload Example 2');
        print qq(<PRE>);
        print qq(<B>File Name:</B> $File_Name\n);
        print qq(<B>File Contents:</B>\n\n);

        while(<$File_Name>) { print; }

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