#!/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;
my $error;

#open(LOCAL,">$dir/$name") or $error = $!;

open(UP_FILE,">$name") or $error = $!;

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

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

# DEBUG TO SCREEN

print $query->br,$error,$query->br,$file,$query->br,$name;

print $query->end_html;