play.pl

use strict;
use warnings;

sub do_this { }
sub do_that { }

sub do_everything {
    HERE {
        do_this();
        do_that();
    };
}

do_everything();
last HERE;