Help for this page

Select Code to Download

Select or download this

#!perl -w
use 5.010;
...
    say "mylength :", mylength;
    say "mylength :", mylength($_);
};