#!/usr/bin/perl -w

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

my $start = gettimeofday();
get("http://rtihardware.homelinux.com/ostools/testfile.txt");
my $end = gettimeofday();
my $delta = ($end - $start);
my $time = ($delta * 1000);
#print localtime().",$start,$end,$delta\n";
print localtime().",  $time bytes/sec\n";

exit 0;


