#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw/fatalsToBrowser /;
use CGI ':standard';

my $megabyte = 1024 * 1024;  # bytes
my $max_mb   = 1;     # max no. of MB we will allow

$CGI::DISABLE_UPLOADS = 0;
# CGI module variable for en/disabling uploads (non-zero to disable)
$CGI::POST_MAX = $megabyte * $max_mb;
# CGI module variable for maximum upload size (bytes)

my $q = CGI->new();

my $base_dir = 'D:\\Inetpub\\thissite.org\\';
my $target_dir = "\\alerts\\images\\";
my $base_dom = "http://www.thissite.org/alerts";
my $image_folder="/images/";