goto-test.pl to HTML.

index -|- end

Generated: Sun Aug 21 11:11:05 2011 from goto-test.pl 2010/10/25 220.

#!/usr/bin/perl
use strict;
use warnings;
my $count = 0;
START:
$count = $count + 1;
if( $count > 4 ){
    print "Exiting program\n";
}else{
    print "Count = $count, Jumping to START:\n";
    goto START;
}

index -|- top