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

my $test = 'hallo';
testsub();

sub testsub {
  print $test;
}