#!/usr/bin/perl use strict; use CGI qw/:standard/; ############################################################## ### Variable Definitions ### ############################################################## my($FileHandle) = ""; my($FileStream) = ""; ############################################################## ### Main Program Begins Here ### ############################################################## $FileHandle = CGI->new; $FileStream = $FileHandle('AUT_File'); open (OUTFILE, ">test.jpg"); print OUTFILE $FileStream; close (OUTFILE);
In reply to saving the file uploaded... by PriNet
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |