#!/usr/bin/perl -l

use strict;
use warnings;
use Time::HiRes qw(gettimeofday tv_interval);

my $t0;
my $c = 0;
$SIG{ALRM} = sub {
  my $duration = tv_interval($t0, [gettimeofday]);
  printf("%d bytes in %.02f seconds: %02f bytes/sec\n", 
          $c, $duration, $c / $duration);
  exit;
};


close(STDIN);
open(STDIN, "/dev/random");

alarm(5);
$t0 = [gettimeofday()];

while ($c += sysread(STDIN, $_, 4096)) { next };