my $error;
{
    ...;
    $error = 'message', last if ( $foo == $bar );
    ...;
}
if (defined $error) {
    ...; # clean up mess and/or warn the user
}