open COMMAND, "$command |" or Log("Unable to execute command: $!"); while (defined(my $line = )) { chomp($line); Log("$line"); } close COMMAND;