open( CMD, "$command |" ) or die "Cannot open $command: $!\n";
while ( defined( my $line = <CMD> ) ) {
    # Do stuff with $line which is the output from $command
}
close CMD;
[download]

Or, ikegami has a list of number of good modules that do similar things.