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

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