Printing the Content-Type of an Uploaded File : File Upload « CGI « Perl

1. Perl
2. CGI
3. File Upload

Printing the Content-Type of an Uploaded File

    


#!/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;

   
    
    
    
  

Related examples in the same category