if ($^O eq 'WhizBang Unix') { eval "use Module::WhizBang;"; die $@ if $@; } else ... #### BEGIN { require Module::Name; Module::Name->import(); }; #### BEGIN { my $module = "Module::Name"; my $module_file = $module; # Translate module name into file name $module_file =~ s!::!/!g; $module_file .= '.pm'; require $module_file; $module->import(); };