Select Code to Download

my $inFH;

...
  say "input  is $instr";

}

my $instr;
if ( defined($infile) ) {
...
  say "input  is $instr";

} else { die "sorry, you did not specify an input either via a file or
+ via [other ways of specifying an instr] " }