Forum Programmation.perl Can't find string terminator "EOF"

Bonjour à tous,

Je m'exerce au PERL à travers la création d'un petit script pour mon serveur Nagios.
J'ai l'erreur suivante :

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

Mon script est le suivant :

    #!/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,
    );
    ...

Merci d'avance les perleux !