> perl
{
  print $x++;
  redo if $x<6;
}
__END__
012345