#!/usr/local/bin/perl
use strict;
use CGI;

my $query = new CGI;

my $dir = $query->param('dir');
my $file = $query->param('file');

$file =~m/^.*(\\|\/)(.*)/;
my $name = $2;
open(LOCAL,">$dir/$name");# or die "Die: $!";

while(<$file>)
{
  print LOCAL $_;
}

print $query->header();
print $query->start_html("File Upload");

# DEBUG TO SCREEN

print "File and Dir: "$file;
print "File: ",$name;

print $query->end_html;