#!/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";