#!/usr/bin/perl
use strict;
use warnings;
print TestSub();
print TestSub();
######################################
sub TestSub {
######################################
  open THIS,'>', \my $variable || die $!;
  print THIS "fooo\n" || die $!;
  close(THIS) || die $!;
  return $variable;
} #TestSub

__END__
fooo
Use of uninitialized value in open at ./foo.pl line 18.
fooo