#!/usr/bin/perl -w
#use strict;

my $ref="this";
my $x=&$ref();
print "$x\n";
sub this {return "hi!"}