#!/usr/bin/perl

use strict;
use CGI qw/:standard/;

my $q = new CGI;

my $filename = $q->param('uploaded_file');
my $contenttype = $q->uploadInfo($filename)->{'Content-Type'};

print header;
print start_html;
if ($contenttype !~ /^text\/html$/) {
    print "Only HTML is allowed<P>";
    print end_html;
    exit;
} else {
    print "Type is $contenttype<P>";
}

print end_html;