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

use strict;
use Date::Calc 'Week_of_Year';

my ($y, $m, $d) = split m{/}, shift || '2007/12/31';
my ($week,$year) = Week_of_Year($y, $m, $d);

printf "%04d-W%02d\n", $year, $week;