Dear monks,

I wrote this piece of code to manage the modules dependencies. It works fine but I've a problem using the methods. Run the script I've this error:

"Undefined subroutine &main::gettimeofday called at..."
[download]

How can I fix it? How can I specify a module qw()? ie.

eval "require Time::HiRes qw(gettimeofday tv_interval)"
[download]

? Thank you very much for your time.

-------------------------------------------------------------------

#!/usr/bin/perl -w

use strict;

use Getopt::Std;
use POSIX qw(strftime);

my @perl_modules = (
    "Encode",
    "HTML::SimpleLinkExtor",
    "HTTP::Cookies",
    "HTTP::Request::Common",
    "HTTP::Response",
    "LWP::UserAgent",
    "Net::Abuse::Utils",
    "Time::HiRes",
);

foreach my $module (@perl_modules){
    eval "require $module";
    if ($@){
        print " [!] Error : $module perl module seems is missing. Do y
+ou want install it now via CPAN? (y/n) ";
        my $answer = <STDIN>;
        chomp $answer;
        if ($answer =~ m/y/i) {
            require CPAN;
            CPAN::install $module;
        } else {
            die " [!] Error : I can't install $module. It's required!\
+n";
        }
    } else {
        if ($module =~ m/HTTP::Request::Common/){
            eval "require HTTP::Request::Common qw(GET)";
        }        
        if ($module =~ m/Net::Abuse::Utils/){
            eval 'Net::Abuse::Utils qw(:all)';
        }        
        if ($module =~ m/Time::HiRes/){
            eval 'Time::HiRes qw(gettimeofday tv_interval)';
        }        
    }
}

....
....
....

my $start_time = gettimeofday();

....
....
....
[download]