#!/usr/bin/perl

use strict;
use CGI -private_tempfiles;
$CGI::POST_MAX=1024*1024;       # limit to 1 megabyte per form posting
                                #disables checking for $q->param()

my $q=CGI->new();

if($q->param())
{
        my $fh=$q->upload('uploaded_file', -override=>1);
        unless($fh)
        {
                print $q->header, $q->html("Invalid File", $q->p("Invalid File"));
                exit;
        }
        my $type=$q->uploadInfo($fh)->{'Content-Type'};
        seek($fh, 0, 2);
        my $size=tell($fh);
        seek($fh, 0, 0);
        print STDERR "File Input: $fh, $type, $size\n";
        print $q->header(-type=>"$type");
        print $q->start_html('Your file')       if($type =~ /text/);
        while(<$fh>)
        {
                print;
        }
        print $q->end_html()    if($type =~ /text/);
                
}
else
{
        print $q->header(-type=>'text/html'), $q->html('upload file', 
                $q->start_multipart_form(),
                $q->filefield(-name=>'uploaded_file', -default=>'starting', -override=>1, -size=>50, -maxlength=>80),
                $q->hidden("uni", time()),
                $q->submit("Ok"),
                $q->end_multipart_form(),
        );
}