print {$output} $_ while (<$input>);
or
print $output $_ while (<$input>);