esiste in PERL una funzione tipo la classica del basic GOTO?

ad esempio:

if ($q->param('ACTION') eq "one") { goto ... }

e poi non so altro...