Perl HiRes

#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use Time::HiRes qw(gettimeofday tv_interval);

my $url = '';

foreach my $index (1 .. 10000)
{
    my $t_01    = [gettimeofday];
    my $content = get $url;
    my $t_02    = [gettimeofday];

    my $time_run = tv_interval($t_01, $t_02);

    print "$index \t";
    print $time_run;
    print "\n";
}