Next Making Programs Faster 26

Time::HiRes

        use LWP::Simple 'get';
        use Time::HiRes 'time';
        my $url= shift;
        my $start = time();
        my $doc = get($url);
        my $elapsed = time() - $start;
        print "$elapsed second(s) elapsed.\n";
        1.49982798099518 second(s) elapsed.

Next Copyright © 2003 M. J. Dominus