#!/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;