Help for this page

Select Code to Download

Select or download this

map {
    print "$etcpw->{$_}\n";
...
    $first <=> $second
} keys %{$etcpw};