Select Code to Download

while(my ($r,$s) = each(%{ {x=>5,y=>8} })) {
    print($r);
    };

>perl -wMstrict -le
"while (my $endlessly = shift @{[ qw(but why?) ]}) {
...
but...
but...
Terminating on signal SIGINT(2)