package MyShell;

$ENV{TERM} = '';

use base qw(Term::Shell);

sub run_command1  { print "command 1!\n"; }
sub smry_command1 { "what does command1 do?" }
sub help_command1 { "Help on 'command1', whatever that may be..." }

sub run_command2 { print "command 2!\n"; }


package main;

my $shell = MyShell->new;
$shell->cmdloop;