#!/usr/bin/perl -w
use strict;
open(OUTFILE, ">out.txt") or die "cannot open out.txt: $!";
my $filehnd = {};
$filehnd->{outfile} = \*OUTFILE;
print {$filehnd->{outfile}} "This is a test\n";