> perl
X: 
{
  print $x++;
  goto X if $x<6;
}
__END__
012345