use strict;
use warnings;

my ($x, $y) = (1, 0);

if ($x)
{
    $y or last;

    print "Continue with the if clause\n";
}

print "Do something else\n";

##</code><code>##

18:04 >perl 1312_SoPW.pl
Can't "last" outside a loop block at 1312_SoPW.pl line 8.

18:04 >perl -v

This is perl 5, version 22, subversion 0 (v5.22.0) built for MSWin32-x64-multi-thread