#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $output   = '';
my $query    = CGI->new();
my $filename = $query->param("uploadfile_0");
my $upload   = $query->upload("uploadfile_0");
$output     .= "Temp file: " . $query->tmpFileName($filename) . "\n";

if (!$upload) {
    $output .= "<p>CGI.pm failed to upload the file.</p>";
}
else {
    $output .= "----- Contents: ------\n";
    while (<$upload>) {
        $output .= $_;
    }
}
print "Content-type: text/plain\n\n";
print $output;