Par défaut Can't find string terminator "EOF"

Can't find string terminator "EOF" anywhere before EOF at check_disque.pl line 15.

#!/usr/bin/perl
#=====================================================================
# Auteur : Admin
# Date   : 13/03/2022
# But    : plugin Nagios pour vérifier l'espace disque utilisé
#=====================================================================
# Module à utiliser
use strict;
use warnings;
use Nagios::Plugin;
use feature qw(switch say);
use Getopt::Long;
 
# Détails de l'écran d'aide
my $help = <<EOF;
 Plugin Nagios pour contrôler l'espace disque
 
  usage: $0 -w Warning --c Critical
 
Options:
 -h, --help
       L'écran de l'aide
 -w, --warning=INTEGER
       Le seuil d'avertissement
 -c, --critical=INTEGER
       Le seuil critique
 
       exemples:
       $0  -w 80 -c 90
EOF
  my $warning=0;
  my $critical=0;
  my $exit=0;
# Récupération des valeurs de paramètres
my $result = GetOptions(
   "w|warning=i"=> \$warning,
   "c|critical=i" => \$critical,
   "h|help"  => \$help,
);
...