#!/usr/bin/env perl

use strict;
use warnings;
use Date::Calc qw(Today Week_Number);
use feature qw(say);

say Week_Number( Today() );

__END__