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

# "Friendly" version using eval BLOCK

foreach my $mod (qw(CGI Test::Simple Foo::Bomb Test::More)) {
	(my $fn="$mod.pm")=~s|::|/|g; # Foo::Bar::Baz => Foo/Bar/Baz.pm
	if (eval { require $fn; 1; }) {
		print "Module $mod loaded ok\n";
	} else {
		print "Could not load $mod. Error Message: $@\n";
	}
}