package My::HelloWorld;
  use base CGI::Prototype;

  sub template { \ <<'END_OF_TEMPLATE' }
  [% self.CGI.header; %]
  Hello world at [% USE Date; Date.format(date.now) | html %]!
  END_OF_TEMPLATE

  My::HelloWorld->activate;


##</code><code>##

package doesnt_matter;
use CGI::Prototype;
my $derived = Class::Prototyped->newPackage('My::App',
  (
    'parent*'  => 'CGI::Prototype',
    template => sub { 'blah blah blah' };
  );

$derived->activate;