А можно довести скрипт до ума, а то я практически ни чего не понимаю в перле