Town_Hall_weeks.pl

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);
use Date::Calc qw(Delta_Days);

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon  += 1;
$year += 1900;

my @first_date   = ( "2020", "3", "27" );
my @current_date = ( $year, $mon, $mday );

my $days  = Delta_Days(@first_date, @current_date);
my $weeks = $days/7;
say "$weeks weeks";