#!perl -wT

use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use strict;
use Fcntl qw ( :DEFAULT :flock );

use constant UPLOAD_DIR		=> "c:/some/path/Admin/images/";

my $q	= new CGI;

my $filename	= $q->param('file');
my $fh			= $q->upload('file');

$filename		=~ s/[^\w.-]/_/g;
if ($filename =~ /^(\w[\w.-]*)/) {
	$filename = $1;
}
else {
	error($q, "Invalid file name." );
}

my $upload_dir	= UPLOAD_DIR . $filename;


sysopen(OUTPUT, $upload_dir, O_CREAT | O_RDWR | O_EXCL);

my $buffer = "";

while (read($fh, $buffer, 16384)) {
	print OUTPUT $buffer;
}
 
close OUTPUT;

print	$q->header,
		$q->start_html("At long last"),
		$q->h1("done dude...doh"),
		$q->end_html;

##</code><code>##

Can't use an undefined value as a symbol reference at C:/some/path/again.pl line 34.

##</code><code>##

Error near ""binmode