#!/usr/bin/perl
use strict;
use warnings;

if (open(my $fh,'>','test.xxx')) {
    test(\$fh);
}
else { die "Nein, wegen $!" }

sub test{
    my ($t) = @_;
    print $$t "test\n"; # <-- dies soll in die Datei geschrieben werden
}