Select Code to Download

use Term::ReadLine;
my $tty=$ENV{MASTER_TTY};
...
  print $OUT $res, "\n" unless $@;
  $term->addhistory($_) if /\S/;
}