#!/usr/bin/perl -w

package IsaCGI;
use strict;
use CGI;
use vars qw(@ISA);
@ISA=qw(CGI);

sub new{
    my $this={};
    bless $this,__PACKAGE__;
    $this->SUPER::new({});
    return $this;
}

sub my_method{
   return "hello from isa_cgi\n";
}
1;


##</code><code>##

#!/usr/bin/perl -w

use strict;
use IsaCGI;
use diagnostics;

my $q=new IsaCGI;
print $q->header;
print $q->start_html;
print $q->my_method;


##</code><code>##

Use of uninitialized value at (eval 4) line 28 (#1)
    
    (W) An undefined value was used as if it were already defined.  It was
    interpreted as a "" or a 0, but maybe it was a mistake.  To suppress this
    warning assign an initial value to your variables.
    
Content-Type: text/html; charset=


##</code><code>##

Content-Type: text/html; charset=ISO-8859-1