Thanks that works great. Here is what i came up with. #!/usr/bin/perl use Date::Calc qw(Delta_Days); use Time::Piece; ($sec, $min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); open (MYDATA, "data.txt") or die ("Error: cannot open file 'ARGV[0]'\n"); my @lines1 = <MYDATA>; # chomp @lines1; my $t = Time::Piece->strptime("@lines1", "%b %d,%Y"); $year1 = $year + 1900; $mon1 = $mon + 1; $mday1 = $mday; $year2 = ( $t->strftime("%Y")); $mon2 = ( $t->strftime("%m")); $mday2 = ( $t->strftime("%d")); $difference = Delta_Days($year1, $mon1, $mday , $year2, $mon2, $mday2); print "There were $difference days between Nat and Bree\n"; print "email user\n" if $difference <= 15; data.txt Jan 24, 2010