#!C:\xampp\perl\bin\perl.exe -w

use CGI qw(:standard);
print header;
require 'postget.pl';

my %datos;
%datos = &postget('G');
my $codeID = $datos{'codeID'};             
my $upID = $datos{'upID'};

if($codeID && $upID)
{
        $query = new CGI;
        $UpFile = $query->param("UpFile");
        $UpFile =~ s/.*[\/\\](.*)/$1/;
        $UpFileHandle = $query->upload("UpFile");
        $UpDir = '../files';
        my @Ext = ('php','php3','php4','pl','cgi','asp','aspx');
        my $CorrectExt = 1;
        foreach(@Ext)
        {
                if($UpFile =~ /\.$_$/i)
                {
                        $CorrectExt = 0;
                        last;
                }
        }
        if($CorrectExt eq 1)
        {
                open(UPLOADFILE, ">$UpDir/$UpFile") or die 'Upload error.';
                binmode UPLOADFILE;
                while(<$UpFileHandle>)
                {
                        print UPLOADFILE;
                }
                close UPLOADFILE;
                print 'File uploading success.';
                print '<br />';
                print 'CodeID: '.$codeID;
                print '<br />';
                print 'UpID: '.$upID;
        }
        else
        {
                print 'The file extension is forbidden.';
        }
}
else
{
        print 'Upload error: CodeID and UpID are empty.';
}

mkdir "diractorio1", "directorio2";