Grabbing output of system commands with perl

I often have to snag the output of system commands and parse them with perl. Well, Urbana turned me on to a method of grabbing the output that is much easier than directing the output of the system command to a file and re-opening the file. Just use a pipe:

#!/usr/bin/perl
open (PINGTEST, "/bin/ping  -c 5 netadmintools.com |");
$i=1;
while (<PINGTEST>){
print "Line # ".$i." ".$_;
$i++;
}
print "All done!\n";
close PINGTEST;

When this is run:

u-1@srv-1 perlmagic $ ./pt
Line # 1 PING netadmintools.com (216.40.230.46): 56 octets data
Line # 2 64 octets from 216.40.230.46: icmp_seq=0 ttl=49 time=78.0 ms
Line # 3 64 octets from 216.40.230.46: icmp_seq=1 ttl=49 time=91.7 ms
Line # 4 64 octets from 216.40.230.46: icmp_seq=2 ttl=49 time=77.1 ms
Line # 5 64 octets from 216.40.230.46: icmp_seq=3 ttl=49 time=93.6 ms
Line # 6 64 octets from 216.40.230.46: icmp_seq=4 ttl=49 time=81.7 ms
Line # 7 
Line # 8 --- netadmintools.com ping statistics ---
Line # 9 5 packets transmitted, 5 packets received, 0% packet loss
Line # 10 round-trip min/avg/max = 77.1/84.4/93.6 ms
All done!
u-1@srv-1 perlmagic $