很不错的PERL管道应用

#! /usr/bin/perl

open(F, " ls |") or die;
# Open a pipe to read from
while(<F>){ print $_; }
# Prints list of UNIX files
#