esempio di uno script perl