#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
##############################################################
###                   Variable Definitions                 ###
##############################################################
my($FileHandle) = "";
my($FileStream) = "";
##############################################################
###                Main Program Begins Here                ###
##############################################################
$FileHandle = CGI::->new();
$FileStream = $FileHandle->param('AUT_File');
open (OUTFILE, ">test.jpg");
print OUTFILE <$FileStream>;
close (OUTFILE);