Test task on perl