#!/usr/bin/perl -w
use strict;
use warnings;
no strict 'refs';

my $test = 'hello';


sub testsub {
  print $test;
}