#!/usr/bin/perl --
use strict; use warnings;
{
    my $count = $0; 
LOOOOOP: {
        print "$count\n";
        if( not ( $count < 10 ) ){ 
            goto NO_MORE_LOOP;
        } else {
            $count++;
            goto LOOOOOP;
        }
    }
NO_MORE_LOOP:
    undef $count;
}