Example perl client