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);