add sasl script (perl)