use strict;
use warnings;
use Date::Calc qw(:all);

my $date_birth = '1999-12-13';
my $date_death = '2080-05-21';

my @array_birth = split(/-/, $date_birth);
my @array_death = split(/-/, $date_death);

my $dd = Delta_Days(@array_birth, @array_death);
my $years_alive = sprintf("%.1f", $dd/365);

print $years_alive,"\n";