#!/usr/bin/perl -w
use strict;
 use CGI;
 use CGI::Carp qw ( fatalsToBrowser );
 use File::Basename;

$CGI::POST_MAX = 1024 * 5000;

my $safe_filename_characters = "a-zA-Z0-9_.-";

my $upload_dir = 'E:/root/mywebsite/htdocs/somedirectory/someotherdirectory';

my $query = new CGI;
my $filename = $query->param("photo");

if ( !$filename )
 {
 print $query->header ( );
 print "There was a problem uploading your photo (try a smaller file).";
 exit;
 } 

my $AccountID = $query->param("AccountID");

my $path = $filename;
my $base = basename($path);
my $dir = dirname($path);
my $file = basename($path);
my ( $base, $dir, $extension ) = fileparse ( $path, '\..*' );

##$path = shift;
my $ext = (fileparse ($path, '\..*?')) [2];
$ext=~ s/^\.//;

$filename = $AccountID . '.' . $ext;

my $upload_filehandle = $query->upload("photo");

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";


 binmode UPLOADFILE;

while ( <$upload_filehandle> )
 {
 print UPLOADFILE;
 }

close UPLOADFILE;

print $query->header ( );
 print "Thanks for uploading your photo.";
 exit;