Depuis la version 5.018, Perl affiche des avertissements lorque l'on utilise given/when, tel que :
   given is experimental at ...
   when is experimental at ...

Pour les supprimer :
   no if $] >= 5.018, 'warnings', 'experimental::smartmatch';

via http://domm.plix.at/perl/2013_05_given_smartmatch.html
(Permalink)