#!/usr/bin/perl -w 
use strict;
my $cmd=qq@
date 
who
ps -ef
netstat -i 
ifconfig -a 
) | 
@;

open CMD, $cmd or die $cmd . ":$!";

my @lines=<CMD>;  # slurp! 

close CMD;
chomp @lines;

# do something here.