#!/usr/bin/perl

use Date::Manip;

$today_dt = &ParseDate("today");
$new_dt = &Date_GetNext($today_dt, 'Thu', 1);
$date = &UnixDate($new_dt, "%Y-%m-%d");

print $date . "\n";