#!/bin/perl
use strict;

my $testsub;
my $subref = $tests

$testsub = sub {
        print $_;
        }