Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

use strict;
...
for (sort { lc($a) cmp lc($b) } keys %names) {
    print "<A HREF=\"/index.pl?node_id=$names{$_}&lastnode_id=110166\"
+>$_</A> | ";
}