open (EXTPROGRAM, "|$externalprogram") or die "Cannot fork to $externalprogram: $!";

print LOG <<EOJ;
print EXTPROGRAM <<EOJ;

(lines to send to external program)

EOJ