#!/usr/bin/perl -Tw
use strict;
use CGI qw(:all);
use Data::Dumper;

if (request_method() eq 'POST') {
        my $f=param('f');
        my $info=uploadInfo($f);
        print
                header(),
                start_html(),
                h1('Upload Metadata'),
                pre(escapeHTML(Dumper($info))),
                end_html();
} else {
        print
                header(),
                start_html(),
                start_multipart_form(),
                filefield(-name=>'f',-size=>50),
                submit(),
                end_form(),
                end_html();
}