Help for this page

Select Code to Download


  1. or download this
    #! perl -sw
    use strict;
    ...
    for (1 .. 100 ) {
        strIter sub{ print; }, $string;
    }