my last tasks in perl classes