use IO::Tee;
my $tee = IO::Tee->new("|$externalprogram",">>$log");
print $tee <<EOJ;

(lines to send to external program)

EOJ