un script bizarre en perl que je ne comprends pas

Version imprimable