my $command="xcommand";
  open(CMD, "$command |") or die "Error: $!\n";
  while(<CMD>) {
    print (split(" "))[0]."\n"; # or whatever else
  }
  close(CMD);