my $loaded_mod; foreach my $mod ( qw( Module1 Module2 Module3 ) ) { warn "attempting to load '$mod'"; eval "require $mod"; next if $@; warn "'$mod' loaded successfully"; $loaded_mod = $mod; last; } $loaded_mod or die "Couldn't load anything useful..."; ...