while (<LOG>) {
   if (/.*,.*,.*,"pno",.*/) { # Ausgehende Verbindungen, Gruen
        #print $c->p({-style=>'Color: green;'},"$1 $2 $3 $4\n");
	print "$1 $2 $3 $4\n";
        print "<p>\n";