some little code to test soap with perl