Help for this page

Select Code to Download


  1. or download this
    sub chain {
        return @_ > 1 ? { shift() => chain(@_) } : shift();
        }
    
  2. or download this
    Win8 Strawberry 5.8.9.5 (32)  Thu 05/13/2021 15:26:20
    C:\@Work\Perl\monks
    ...
    
    ^Z
    { foo => undef }