Help for this page

Select Code to Download

Select or download this

#! perl
use Modern::Perl;
...
    $people->cull;
    $people->display('After:');
}

Select or download this

14:06 >perl 516_SoPW.pl

...
}, "Nation")

14:06 >