use strict;
use Date::Manip qw(UnixDate Date_Init);
my @test = qw(
2000-12-29 2000-12-30
2000-12-31 2001-01-01
2001-01-02 2001-01-03);
&Date_Init("TZ=EST");
print join ("\n", map {&UnixDate($_,"%F \t --> %a --> %Gw%W")} @test);