#!/usr/bin/perl use strict; use CGI; my $q = CGI->new(); my $filename = $q->param('upload'); print "Content-Type: text/html\n\n"; print qq~ [$filename] ~;