my $x = <<__H__;
A test @{[ &test ]}!
__H__

sub test { 'function' }
print $x;