use DateTime;

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