stratum proxy perl