Select Code to Download

$ perl -Mstrict -wE '
> open my $fh, q{<}, \ <<EOD or die $!;
...
> say $count;'
3
$

$ perl -Mstrict -wE '
> open my $rand, q{<}, \ <<EOD or die $!;
...
4 3 3
4 5 3
5 5 3