#!/usr/bin/perl -w
package t;use Net::Server;@ISA=qw(Net::Server);sub process_request{print(
($s ne'')?"Der Besitzer dieses Computers ist *mit Sicherheit* ein Terrorist\n"
:"Dieser Computer gehört einem rechtschaffenden Bürger.\n")}if($#ARGV>=0)
{while(<>){print if/bombe|jihad|c-radar|gentrifizierung|ccc|mrmcd/i;}
}else{$s=`find \$HOME -exec $0 '{}' \\;`;t->run(port => 1337)}