use Modern::Perl;

use YAML qw/DumpFile LoadFile/;
local $YAML::UseCode = 1;

my $code = {
    snippet1 => sub {
        my $counter;
        for ( 1 .. 10 ) { say; $counter++ }
        say $counter;
      }
};
DumpFile( './snippet.yml', $code );

my $snippets = LoadFile('./snippet.yml'); # <- Put this in the initialization part of your program
&{ $snippets->{snippet1} }; # and run the snippet

##</code><code>##

---
snippet1: !!perl/code |
  {
      use warnings;
      use strict;
      use feature 'say', 'state', 'switch', 'unicode_strings';
      my $counter;
      foreach $_ (1 .. 10) {
          say $_;
          ++$counter;
      }
      say $counter;
  }