sub upload {
    my ($obj, $db) = @_;

    my $project_id = $PTS::QUERY_STRING{'pid'};
    my $user_id    = $PTS::QUERY_STRING{'uid'};
    my $fname      = $PTS::QUERY_STRING{'fname'};
    my $filehandle = $PTS::CGI->upload('fname');

    my $size = -s $filehandle;

    print $PTS::CGI->header();
    print "Filename => $fname\n<br>";
    print "Size => $size\n<br>";

    push @Fh::ISA, 'IO::Seekable' unless $filehandle->isa('IO::Seekable');
    push @Fh::ISA, 'IO::Handle' unless $filehandle->isa('IO::Handle');
    print "Mime Type => ".File::MimeInfo::Magic->magic($filehandle)."\n<br>";
    #show($obj, $db);
}