#!/usr/local/bin/perl

local $| = 1;

use strict;
use warnings;

# --------------------
use lib "$ENV{DOCUMENT_ROOT}/cgi-bin/lib";

use CGI qw(:all);

# --------------------

use vars qw(
    $cgi
);

$cgi = new CGI;

my $file = $cgi->upload('file');

if (defined $file) {
    my $fname = time;

    open (DAT,"> test/$fname") or die 'Error processing file: ',$!;

    binmode $file;
    binmode(DAT);

    my $data_file;
    while(read $file,$data_file,1024) {
        print DAT $data_file;
    }
    close(DAT);
    # --------------------

    print $cgi->header("text/plain"), "File is uploaded";
}
else {
    print $cgi->header(), 
        $cgi->start_html(), 
        $cgi->h1("Upload"),
        $cgi->start_form(),
        $cgi->filefield(-name=>'file',
               
     -maxlength=>255),
        $cgi->submit(),
        $cgi->end_form(),
        $cgi->end_html();
}
1;