Help for this page
INIT{ package TestClass; ...
#!/usr/bin/perl use strict; ... use base "TestClass"; 1; }