my $inFH;

if ( defined($infile) ) {

  open my $inFH, '<', $infile or die "opening input file $infile, $!";
}
my $instr;
{ local $/ = undef; $instr = <$inFH> }
if ( defined($instr) ) {

  say "input  is $instr";

}