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