use warnings;
use strict;
use Date::Calc qw(Delta_DHMS Localtime);

my @start_date = qw(1965 11 06 09 32 00);
my @now = (Localtime())[0..5];

my ($days, $hrs, $mins, $secs) =  Delta_DHMS(@start_date, @now);
print "There have been $days days, $hrs hours, ";
print "$mins minutes, $secs seconds since my birth.\n";

1;