#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;

my $q = new CGI;

open (FILE, "<namensliste.dat") or die "Kann namensliste.dat nicht oeffnen $!\n";
my @table = map { chomp; [split(/\|/, $_)]; } (<FILE>);
close FILE;
my @sorted_table = sort {$a->[1] cmp $b->[1]} @table;

print $q->header, $q->start_html, "<table border='1'>\n";
print "<tr><td>$_</td></tr>\n" for (map {join "</td><td>", @$_} @sorted_table);
print "</table>\n", $q->end_html;
exit;