perl scripts for ecommerce server