OK, here's an example that seems to work. Not very pretty, I know :)
Accuracy of this test will increase with larger data sizes, since then you're reducing the percentage overhead introduced by server load, general cgi speed etc.
Seems to work with my quick testing, but YMMV.

(Oh and I had to retype this a couple of times, since the textbox likes to clear whenever I hit 'ESC'. Damn those 'vi' fingers)
#!/bin/perl

use warnings;
use strict;

use Time::HiRes qw ( gettimeofday ) ;

my $data = "E"x1020; #start with using 1k blocks shall we?
my %cgi_vars;

foreach my $pair ( split ( "&", $ENV{'QUERY_STRING'} ) )
{
  my ( $var, $val ) = split ("=", $pair);
  $cgi_vars{$var} = $val;
}

#cgi headers:
print "content-type: text/html\n\n";

#take time

my ( $start_seconds, $start_microseconds ) = gettimeofday;
print "$start_seconds  $start_microseconds<BR/>\n";

#print stuff to thingy

if ( $cgi_vars{"data_size"} )
{
   for ( my $count=0; $count < $cgi_vars{"data_size"}; $count++ )
   {
     print "<!",$data,"->\n";
   }
} 

#take time.
my ( $end_seconds, $end_microseconds ) = gettimeofday;
print "$end_seconds  $end_microseconds<BR/>\n";

#compare.

my $time_delta = ($end_seconds - $start_seconds) + ( ( $end_microsecon
+ds - $start_microseconds) / 1000000);

if ( $cgi_vars{"data_size"} )
{
  print "your data transfer of ", $cgi_vars{"data_size"}, "k took ", $
+time_delta, " seconds<BR/>\n";
  print "your bandwidth is ",$cgi_vars{"data_size"} / $time_delta ," k
+ilobytes/sec<BR/>\n";
}
else
{
  print "please invoke as $ENV{'SCRIPT_NAME'}?data_size=100<BR/> \n";
}

[download]

In reply to Re: Re: Re: Bandwidth Testing by Preceptor
in thread Bandwidth Testing by sunadmn

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.