my $birthday = "2/29/1980"; # (not really -- just an example)
my ($month,$date) = split /\//, $birthday;

my ($today,$thismonth) = (localtime)[3,4];
$thismonth++; # localtime gives you "0" for January

&letsParty if ( $today == $date and $thismonth == $month );