#!/usr/bin/perl print "Content-type: text/html\n\n"; print < File Upload Sample

Upload File

HTML exit;