#!/usr/bin/perl

# http://perlmonks.org/?node_id=1177838

use strict;
use warnings;

my @cmds = ('date +%S.%N') x 80;
my @fhs;

open $fhs[@fhs], '-|', $_ or die "$! on open of $_" for @cmds;
print map <$_>, @fhs;