#!/usr/bin/perl --

use CGI qw( :standard escapeHTML );

my $directory = "/home/curbdire/www/uploadedimage/";

my $query = new CGI;

my @names = $query->param;
my $url = $query->param("URL");
my $fh = $query->upload('upload_file');
my $filename = $query->param('name');
$filename =~ s/[^A-Za-z0-9\.\_]/_/g;

print "Content-type: text/html\n\n";

open(OUTF, "$directory$filename") || Error; 
while ( $bytesread = read $fh, $buffer, 1024 )
{
print OUTF $buffer;
}
close OUTF;

print "$directory$filename";

Sub Error{
 print " error - $! ";
}