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

##</code><code>##

use IO:Tee;

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

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