#!/usr/bin/perl -w
use strict;
use warnings;
no strict 'refs';
require 'testvarsub.pl';

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