#!/usr/bin/perl
use strict;
use warnings; no warnings 'void';

sub {
	my ($varenv) = @_;

	$varenv->{test3} = 'hier bin ich!';
}