#! perl -wl
use strict;
for my $i (1 .. 10) {
	print $i;
} cxontinue {
    print "#";
    print "-";
}

##</code><code>##

Can't call method "cxontinue" without a package or object reference at test.pl line 5.
1
2
3
4
5
6
7
8
9
10
#
-

##</code><code>##


foreach my $i (1 .. 10) {
    print $i;
}
do { print '#';
print '-' }->cxontinue;

test.pl syntax OK