Select Code to Download

my $term;
if ($ENV{TESTING}) {
...
} else {
   $term = Term::ReadLine->new('My Application');
}

my $term;
if (-t STDIN) {
...
} else {
   $term = Term::ReadLine->new('My Application', \*STDIN, \*STDOUT);
}

my $term = Term::ReadLine->new('My Application', \*STDIN, \*STDOUT);

use IO::Handle;

...
} else {
   $term = *STDIN;
}