Select Code to Download

open my $filehandle, '>', $filename or die "$!";

use IO:Tee;

...
open my $output_handle, '>', $out_filename or die "$!";

$generic_handle = IO::Tee->new($input_handle, $output_handle);