исправлено для perl