В скрипте Perl метки просто означают имя, соответствующее некоему положению внутри скрипта. Имена меток оканчиваются двоеточием (например, outerloop :). Используя оператор goto , скрипт может осуществлять переходы на метку. Дополнительно могут использоваться операторы last , next и redo , для перехода к метке. Следующий код иллюстрирует использование оператора last для перехода на метку:
outerloop: while ($i > 0)
{
while ($ j > 0)
{
#Здесь какой-нибудь другой процесс
if ($needToAboutLoop)
{
last outerloop;
}
}
}
В этом случае инструкция содержит ветвь last для перехода на метку outerloop и окончания выполнения цикла.