package SH:Shell; use base qw(Term::Shell); sub init { ## good stuff of course }