Select Code to Download

$ perl -E '
    my $x = { a => 1 };
...
1
2
1

$ perl -E '
    my $x = { a => 1, b => 2 };
...
1 2
3 4
1 2

$ perl -E '
    my $x = { a => 1, b => 2 };
...
3 4
3 XYZ
1 2