if ($pid = open(CHILD,"-|"))
{
  while (<CHILD>)
  {
    $data .= $_;
  } 
  print $data;
} else
{
  exec ("ls");
}