Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    sub cycle {
...
    }                              
'
abcefgdabhefcdaghe

$ perl -Mstrict -Mwarnings -E '
    {          
...
    }
'
abcefgdabhefcdaghe

$ perl -Mstrict -Mwarnings -E '
    sub cycle {
...
    print cycle($stuff) for 1..30;
'
abcdabcdabcdabcdabcdabcdabcdab