use Date::Calc qw/Delta_Days/;
print Delta_Days( @now[0..2], @then[0..2] ) / 7;