testing 5 gets in a url

calculateTime.pl

#!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes;
use LWP::Simple;

my @urls = ("http://www.you24h.com/");

sub countParams {
    my $numParameters = @_;
    print("The number of urls is $numParameters\n");
}

sub CalculateTime{
	my($urls, $retries) = @_;
	my @urls = @{$urls};
	print("Number of retries: " . $retries . " \n");
	countParams(@urls);
	for(@urls){
		my $url = $_;

		my $start = Time::HiRes::gettimeofday();
		my $count = 0;
		for($count; $count <= $retries; $count++)
		{
			get($url);
		}
		my $end = Time::HiRes::gettimeofday();
		printf($_ . "\n");
		printf("%.2f\n", ($end - $start)*1000 +" ms");
	}
}

my $retries = 5;
CalculateTime(\@urls, $retries);