warzn rechnest du nicht einfach das heutige datum aus und vergleichst jahr, tag und monat mit der eingabe?

wenn du den timestamp von einem beliebigen datum willst:
http://www.perldoc.com/perl5.8.0/lib/Time/Local.html