#!/usr/bin/perl

use Time::HiRes qw(gettimeofday tv_interval);
use Net::Statsd;

$Net::Statsd::HOST = 'localhost';    # Default
$Net::Statsd::PORT = 8125;           # Default

my $t0 = [gettimeofday];

my($one, $two, $three) = map { $_ x 4096 } 'a'..'c';

$s .= $one;
$s .= $two;
$s .= $three;

my $temp;
for (my $i=0; $i<12288; $i++) {
   $temp=substr($s,length($s)-1,1);
   $s=$temp.$s;
   $s = substr($s,0,12288);
}

$elapsed = tv_interval ( $t0, [gettimeofday]);
$elapsed = int($elapsed * 1000 * 1000);

Net::Statsd::timing('charbench', $elapsed);