Select Code to Download

open(my $fh, '<', \<<'__EOI__');
...
...
...
__EOI__

my %files = (
   users => <<'__EOI__',
...

open(my $fh_users, '<', \$files{users});
open(my $fh_posts, '<', \$files{posts});