Select Code to Download

use strict;
use Date::Tie;

...
$date{weekday} = 5;  # monday is 1, friday is 5
$date{week} += 1;    # advance 1 week
print "2nd Friday in April is $date{month}-$date{day}\n";

3rd Sunday in March is 03-17
2nd Friday in April is 04-12