#!/usr/bin/perl

use strict;
use warnings 'all';

use Date::Manip;

my $month = UnixDate ParseDate ("today"), "%B %Y";
my $date  = ParseDate "3rd tuesday in $month";
if ($date lt ParseDate ("now")) {
    my $month = UnixDate ParseDate ("next month"), "%B %Y";
       $date  = ParseDate "3rd tuesday in $month";
}
print UnixDate $date => "%F\n";