#!/usr/bin/perl -wT
use strict;
open (FOO, '>/tmp/foobar') or die "Couldn't open /tmp/foo: $!\n";
my $self = { 'fh' => \*FOO};
print $self->{'fh'}  "This is a test\n";

##</code><code>##

String found where operator expected at ./foo.pl line 5, near "}  "This is a test\n""
	(Missing operator before   "This is a test\n"?)
syntax error at ./foo.pl line 5, near "}  "This is a test\n""

##</code><code>##

my $fh = $self->{'fh'};
print $fh "This is a test\n";

##</code><code>##

print scalar($self->{'fh'}) "This is a test\n";