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

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

##</code><code>##

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

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