Select Code to Download

use DateTime;

...
    ->new( year => 2002 )
    ->add( weeks => 10, days => 4 )
    ->epoch;

use DateTime;

...
# ...

my $epoch = $dt->truncate( to => 'week' )->epoch;