use FindBin qw($Bin); chdir($Bin);

use lib $FindBin::Bin . '/LIBS';
use X::Testmodul; #in zusätzlichen sub dir "X", daher X::

my $Testmodul = Testmodul->new();

$Testmodul->Modulprint();
print $Testmodul::wurst;