# example use:
perl a.pl &
telnet localhost 20000