print UNIVERSAL::isa('SubClass','SuperClass') ? 'true' : 'false';

package SuperClass;
package SubClass;
use vars qw(@ISA);
@ISA=qw(SuperClass);