my $pid = open LS, 'ls -l |' or die $!;
my $result = do{ local $/; <LS> };