#!/usr/bin/perl
use lib '/home/ss1880/Date-Calc-6.3/lib/Date/';
use Date::Calc;
my @today = (localtime)[5,4,3];
$today[0] += 1900;
$today[1]++;

my @birthday = (1980, 4, 3);

my $days = Delta_Days(@birthday, @today);

print "I am $days days old\n";

exit 0;