format_c@linux:~> perl 
open FILE,'>','test.txt' or die $!;
schreibwas(*FILE);
close FILE;

sub schreibwas {
	my $fh = shift;  
	print $fh "test";
}
_ _ END _ _
format_c@linux:~> cat test.txt 
testformat_c@linux:~>