use strict;
use warnings;

open FH, ">", "test$$.txt" or die $!;

_cat(*FH, "This is a test\n");

sub _cat {
    my $fh = shift;
    my $data  = shift;
    print $fh $data or die $!
}