#!/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; print "Type is $contenttype<P>"; print end_html;