Select Code to Download

if (defined $ENV{DEBUG_TTY}) {
  my $tty = $ENV{DEBUG_TTY};
...
  open my $in,'<',$tty;
  my $term = Term::ReadLine->new('Simple Perl calc',$in,$out);
} else { ...; }