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

##</code><code>##

my @data=<<EOJ;
(line1 to send to external program)
(line2 to send to external program)
(line3 to send to external program)
EOJ

for (@data){
  print LOG;
  print EXTPROGRAM;
}