#! /opt/perl/bin/perl
# vim: set ts=4 sw=4 sts=4 et nu:
use strict;
use warnings;

use Data::Dumper;

my %object;
my @modules = qw( CGI );


for my $mod ( @modules ) {
    eval "use $mod; \$object{$mod} = $mod->new; 1;" or die "eval failed: $@\n";
}

print Dumper \%object;