email7:/home/pyr/PRODUCTS/perl/perllvm# cat BrowserUK_991333.pl
#!perl -sw
use strict;
use 5.010;
use Time::HiRes qw[ time ];
no warnings 'recursion';

sub Ack {
    my( $M, $N ) = @_;
    return $N + 1           if $M == 0;
    return Ack( $M - 1, 1 ) if $N == 0;
    return Ack( $M - 1, Ack( $M, $N - 1 ) );
}

my $start = time;
say Ack( @ARGV );
say 'Took: ', time() - $start;



email7:/home/pyr/PRODUCTS/perl/perllvm# perl5.10.0 -sw BrowserUK_991333.pl 3 9
4093
Took: 15.1458311080933

email7:/home/pyr/PRODUCTS/perl/perllvm# perl5.16.0 -sw BrowserUK_991333.pl 3 9
4093
Took: 15.2425358295441

email7:/home/pyr/PRODUCTS/perl/perllvm# perllvm -sw BrowserUK_991333.pl 3 9
4093
Took: 14.7814569950104

email7:/home/pyr/Git/FB# time perl5.16.0  FBtest.plx
## Start: VSZ-8008_KB-0 RSS-5108_KB-0  BLOCK: 2048/8/2048 ( 1,000,000 )
...
## End: VSZ-50332 RSS-47468  Diff:42324|42360_KB-0  BLOCK: 2048

real    15m5.879s
user    14m24.102s
sys     0m38.442s

email7:/home/pyr/Git/FB# time perllvm  FBtest.plx  
## Start: VSZ-8008_KB-0 RSS-5108_KB-0  BLOCK: 2048/8/2048 ( 1,000,000 )
...
## End: VSZ-50332 RSS-47468  Diff:42324|42360_KB-0  BLOCK: 2048

real    15m33.238s
user    14m45.243s
sys     0m41.359s