package My::Shell;

use Shell::Base;
use base qw(Shell::Base);

sub init {
   my ($self, $args) = @_;
   ...
}