Help for this page
_____ socket _____ com1 | |________________| |----| | | | |----| ----- ------com2
use IO::Socket; ... } close($server);