Funny, this runs perfectly fine with my Perl 5.6.1

#!/usr/bin/perl -w
use strict;
L000: my $i = 1;
L001: print "Here I am\n";
L002: goto L001 unless $i++ > 10;
L003: print "Done\n";
[download]

and nary a block in sight