use strict;
use Env;
use CGI qw(:standard);
use Digest::MD5  qw(md5 md5_hex md5_base64);
use POSIX qw(strftime);
use Date::Manip;

$ENV{'PATH'} = '/usr/bin:/bin:';   

my $query       = CGI->new;
my $modtime     = scalar(gmtime(time - (3600 * 8))) . " GMT";
my $exptime     = scalar(gmtime) . " GMT";

######################################################
#
# Form stuff asking for the upload, title, filename, 
# author, and other relevant file-specific data here
#
######################################################

# ...

sub print_results {
        my $query = shift;
        my ($length, $filename, $filetype);
        my $directory = "/tmp/palm";
        my $file_name = $query->upload('pl_upload');

        if (!$file_name) {
                print "No file received..\n";
                return;
        }

        $file_name =~ s/.*[\/\\](.*)/$1/;
        print h3("File Name"), $file_name;
        my $md5file = md5_hex($file_name);
        open(SAVEPDB,">$directory/${file_name}_${md5file}")
             or die $!;

        while (<$file_name>) {
                print SAVEPDB $_;
                $length += length($_);
        }
        close SAVEPDB;

        # Print file data here, size, title, etc.
}