#!/usr/bin/perl use strict; use warnings; sub subname { my ($varenv) = @_; $varenv->{test2} = 'test2 ok'; if (!defined $varenv->{zeiger_geladen}) { my $code = require "./test_require3.pl"; $code->($varenv); } } return '1';