#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

lauf(1);
lauf(2);

sub lauf {
	my $coderef = require "test_coderef_sub$_[0].pl";
	$coderef->("world");
}