for my $i (1..6) {
  my $command = "whois ...";
  unless (open (CMD, $command . "|")) {
    die "Error in executing $i '$command': $!\n";
  } # unless
  else {
    print <CMD>;
    close (CMD);
  } # else
} # for