sub Upload{
my $self=shift;
my $q=$self->query();
warn "In upload runmode";
my $buffer;
my $bufsize=1024;
my $bytes_retrieved=0;
my $fh=$q->upload('upfile');
my $filename=$q->param('upfile');

my $tmp = File::Temp->new(
DIR=$self->cfg('UploadDirectory');
SUFFIX=>'.zip');
warn "$tmp";
open (TEMPFILE, '>', \$tmp) || die $!;
binmode TEMPFILE;
while (read ($fh, $buffer, $bufsize)){
#warn "$buffer"; #i can see the file here
print TEMPFILE $buffer;
$bytes_retrieved += $bufsize;
}
close TEMPFILE;
warn "now check the upload directory";
return;
}