Select Code to Download

my $output = `command <<EOF;
yes
...

# print output from `command` after giving it 'yes' as input
print $output . "\n";

open(COMMAND, '| command') or die("Can't run command: $!\n");

#  give program 'yes' as input
print COMMAND 'yes';