my $modul = 'IO::Socket';
eval "use $modul;";
die "fehler: $@" if $@;