Select Code to Download

foreach (@vettore) { 
   print $_ . "\n";        
}

# The following two lines check your code and
# alert you to many common errors
...
} 
close $in;
close $out;