use DateTime; print DateTime->now->week_number,"\n";