#!/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
}