[Perl] $stringa = << "HEREDOC"

[Gear2ndsx]

use strict;
 use warnings; 
my $stringa = << "HEREDOC" 
Nel mezzo di cammin di nostra vita mi ritrovai per una selva oscura che la diritta via era smarrita 
HEREDOC 
print "$stringa\n";

Così? Non funziona .