Select Code to Download

use warnings;
use strict;
...
}

$rw->write(copy => 'input.txt.new', contents => $wfh);