#!/usr/bin/perl

use strict;
use warnings;

my $x = 'ls -l';
open(OP,"$x |");

while(<OP>)
{
  print;
}

close OP;


##</code><code>##

$x = `ls -l`;