use Date::Manip;
$d = ParseDate("2014-08-06");
print UnixDate($d,"%W");