Select Code to Download

use Modern::Perl;

use YAML qw/DumpFile LoadFile/;
...

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

---
snippet1: !!perl/code |
  {
...
      }
      say $counter;
  }