added perl script to call ws -> nearly works !!