sh-4.1# cat demo.pl
#!/usr/bin/perl -w

use strict;

my $cmd=qq@
(
date
netstat -i
who
cat /etc/debian_version
)
@;

open PIPE,"$cmd |" or die "$cmd:$!";

my @lines=<PIPE>;

printf "%s\n",join("\n",@lines);



##</code><code>##

sh-4.1# perl demo.pl
Tue Jun 10 13:46:05 EDT 2014

Kernel Interface table

Iface   MTU Met   RX-OK RX-ERR RX-DRP RX-OVR    TX-OK TX-ERR TX-DRP TX-OVR Flg

eth0       1500 0  19404144      0      0 0      23405161      0      0      0 BMRU

lo        65536 0   2016133      0      0 0       2016133      0      0      0 LRU

root     pts/0        2014-06-10 13:11 (144.160.226.53)

6.0.9