Select Code to Download

> PERLDB_OPTS="TTY=`tty`  ReadLine=0" xterm -e perl -d ./calc_TRL.pl

...
  DB<2> c 
main::(./calc_TRL.pl:9):      $term->addhistory($_) if /\S/;
  DB<3>

Enter code: 1+2
3
Enter code: 4+4
8

> cat ./calc_TRL.pl
use Term::ReadLine;
...
  print $OUT $res, "\n" unless $@;
  $term->addhistory($_) if /\S/;
}