(perl) Simple socket transport for Test::Reporter