unless (open (CMD, "$anycommand |")){
  die "Error in executing $anycommand: $!\n";
}
else {
  my @result = <CMD>;
  close (CMD);
}