#!/usr/bin/perl

use strict;
use warnings;

{
  package MyTest;

  my $test;

  sub new {
    $test->();
  }

  $test = sub {
      print "(test) erlaubt\n";
  }
}

package main;

MyTest->new;