#!/usr/bin/perl
# webpageone.cgi

use WebPageOne;

print "content-type: text/html\n\n";

my $x = WebPageOne->new()

print $x->html;