#!/usr/bin/perl

use strict;
use warnings;
use Date::Parse;
use Statistics::LineFit;

my $lf=Statistics::LineFit->new;
$lf->setData([4,6,8,10], [map str2time($_), split /\n/ => <<'.EOD']);
13 Jun 1997
22 Mar 2000
18 Jul 2002
18 Dec 2007
.EOD

my ($i,$s)=$lf->coefficients;
print "Perl 5.12 estimated release date: " . localtime($i+$s*12), "\n";

__END__

##</code><code>##

Perl 5.12 estimated release date: Mon Jul  5 13:00:00 2010