Labels

[Bryan C . Warnock]

Hmm.... is this such a good thing?

my $a = 0;
GORK: while( 1 ) {
        print "Rin ";         
GORK:   if ( 1 ) {
            print "Tin ";
            goto GORK if $b ^= 1;
            print "\n";
            next GORK;
        }
     }


-- 
Bryan C. Warnock
[EMAIL PROTECTED]