Select Code to Download

package MyShell;

...

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

use Term::ReadLine;
  
...
    exit if /exit/ or /quit/;
    print $_, "\n";
}