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 !