perl disaster