Capitolo perl quasi finito