use strict;
use warnings;

if (1) {
   my $fh = \*FH;
   open $fh, 'ls /usr |';
}

$_ = <FH>;

warn $_;