Подсчитать количество операций отправки по временным периодам (под Ubuntu)

#!/usr/bin/env perl -w
#
#  perl DELIVERED.pl '2004-02-15 00:00:25' '2020-01-16 00:00:30' mail.utf8.log 2>/dev/null 
#
 
use Time::Piece;
use utf8;
use strict;
 
my $start = shift;
my $end   = shift;
my $log   = shift;
 
die "ГДЕ ПЕРИОД, ДЯДЯ ?" if not $start;
die "ГДЕ ПЕРИОД, ДЯДЯ ?" if not $end;
die "ГДЕ MAIL.LOG, ДЯДЯ ?" if not -e $log;
 
my $t_start = Time::Piece -> strptime($start, "%F %T"); 
my $t_end   = Time::Piece -> strptime($end,   "%F %T"); 
 
open LOG, $log or die $!;
binmode LOG, ':utf8';
 
my $counter;
while ( <LOG> ) {
 
    chomp;
    next if not /Передача Завершена/;
 
    my $t_line = Time::Piece -> strptime($_, "%a %F %T");
 
    if ( $t_line >= $t_start and $t_line <= $t_end ) {
    
        print $t_line, "\n";
        ++$counter;
 
    }
}
 
close LOG;
print "Delivered $counter mail(s)\n";

#!/usr/bin/env perl -w
#
#  perl DELIVERED.pl '2004-02-15 00:00:25' '2020-01-16 00:00:30' mail.log 2>/dev/null 
#
 
use Time::Piece;
use strict;
use utf8;
 
my $start = shift;
my $end   = shift;
my $log   = shift;
 
die "ГДЕ ПЕРИОД, ДЯДЯ ?" if not $start;
die "ГДЕ ПЕРИОД, ДЯДЯ ?" if not $end;
die "ГДЕ MAIL.LOG, ДЯДЯ ?" if not -e $log;
 
my $t_start = Time::Piece -> strptime($start, "%F %T"); 
my $t_end   = Time::Piece -> strptime($end,   "%F %T"); 
 
open LOG, '< :crlf :encoding(cp1251)', $log or die $!;
 
my $counter=0;
while ( <LOG> ) {
 
    print;
    chomp;
    next if not /Передача Завершена/;
 
    my $t_line = Time::Piece -> strptime($_, "%a %F %T");
 
    if ( $t_line >= $t_start and $t_line <= $t_end ) {
    
        print $_, "\n";
        ++$counter;
 
    }
}
 
close LOG;
print "Delivered $counter mail(s)\n";

print