programming-examples/perl/Statement/Looping Modifiers- The while Modifier.pl

#Format: Expression2 while Expression1;

$x=1;
print $x++,"\n" while $x != 5;