#!/usr/local/bin/perl -w

use strict;
use Date::Manip;

{
   print ParseDate ("next Friday");
}