#!/usr/bin/perl --
use strict; use warnings;
use Module::Load ;
use Time::HiRes qw/ time /;

@ARGV or @ARGV = qw/ CGI B::Deparse DBI DBD::SQLite Moo Moose /;

for my $mod( @ARGV ){
    my $tb = time;
    load( $mod );
    my $ta = time;
    printf "%.5f - %.5f = %.5f %s\n",
            $ta, $tb,  $ta - $tb, $mod;
}
__END__
1366428845.98106 - 1366428845.76563 = 0.21544 CGI
1366428846.11275 - 1366428845.98131 = 0.13144 B::Deparse
1366428846.15868 - 1366428846.11287 = 0.04581 DBI
1366428846.17056 - 1366428846.15895 = 0.01161 DBD::SQLite
1366428846.20396 - 1366428846.17067 = 0.03329 Moo
1366428846.71875 - 1366428846.20407 = 0.51468 Moose