Select Code to Download

#!/usr/bin/perl
use strict;
...
    }
    return $maxlen;
}

S:\Steve\Dev\PerlMonks\P-2017-06-12@0734-sort-undef>sort1.pl
----------------------------------------------------------------------
+---------
...
----------------------------------------------------------------------
+---------

S:\Steve\Dev\PerlMonks\P-2017-06-12@0734-sort-undef>