Select Code to Download

use strict;
use warnings;
...
  or die "can't open the damned output file! $!";

print $wfh $input;