#!/usr/bin/perl -T

use strict;
use warnings FATAL => 'all';
use CGI;

my $q = CGI->new;

print $q->header,
      $q->start_html,
      $q->h1( { -style => 'display: inline; ' }, q[OUR LITTLE UPLOADER
+ - ] ),
      $q->h2( { -style => 'display: inline; ' }, q[Item Upload] ),
      $q->end_html;

exit;
[download]