#!/usr/bin/perl -w
use strict;
use warnings;

if (1==1) {
	if (2==2) {	# will ausbrechen aus dem if-Block
		last;
	}
	print "In if\n";
}
print "Nach if\n";