#--include module Perl8 export('declare', 'print',
                               'new', 'call',
                               'str', 'int');
#--include module CGI   export(':standard');

sub main::main {
  declare lexical q as scalar;
  q = new Object ( Package => CGI, Method => 'new' );

  print { SRC => STDOUT, BUFFER => int(0) },
    call( Object  => q,
          Method  => header
          Params  => str(text/html) ),
    str(Hi there, this is a sample CGI script);
}