$pid = open( my $proc, "-|", "ls -l" );

print "pid $pid\n";


my @lines = <$proc>;
print @lines;