proof

#!/usr/bin/env perl

use common::sense;
use Benchmark;

#banchmark para Ruby
my ($t0, $t1, $td) = ();
$t0 = new Benchmark;
system ('./contador.rb');
$t1 = new Benchmark;
$td = timediff($t1, $t0);
say 'Ruby 1 to 100.000.000: ' . timestr($td);

#banchmark para Perl
$t0 = new Benchmark;
system ('./contador.pl');
$t1 = new Benchmark;
$td = timediff($t1, $t0);
say 'Perl: 1 to 100.000.000: ' . timestr($td);