http://www.perl.it/documenti/perlfun...html?func=goto