1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use lib '.'; 7 8use html::homepage; 9 10my $page_object = html::homepage->new; 11$page_object->process; 12 13print $page_object->as_HTML(undef, ' '); 14 15use html::productpage; 16 17my $page_object = html::productpage->new; 18$page_object->process; 19print $page_object->as_HTML(undef, ' '); 20