Stat Fail2ban Perl

#!/usr/bin/perl
####Script de parsing du log de Fail2ban

use strict;
use warnings;
use MIME::Lite;

####Met les IP dans un tableau pour les compter et les classer
my %addrs = ( );
my $mail_ban = () ;
my @ban = split( /\n/,  `egrep \$(date +%m"-"+%d) /var/log/fail2ban.log |  grep Ban | cut -d" " -f7` );

for (@ban) {
    chomp $_;
    $addrs{$_} += 1;
}
unlink '/home/krapace/script/perl/body_mail\.txt';
my $body = ();
open(   $body , '+>' , "/home/krapace/script/perl/body_mail\.txt" ) or die "Fichier inexistant ou inaccessible '$body' '$!'";
for my $key ( sort {$addrs{$b} <=> $addrs{$a}} keys %addrs ) {

     print( $body  $addrs{$key}."\t$key\n" );
}
close($body);
my $mail_corps = `cat /home/krapace/script/perl/body_mail\.txt`;
 $mail_ban = MIME::Lite->new(
             From     => 'expediteur@domain.com',
             To       => 'destinataire@domain.com',
             Subject  => "Objet du mail",
             Data     =>  $mail_corps ,
             );
    $mail_ban->send;