A program that loops using a single-line conditional statement.
#!/usr/local/bin/perl $count = 0; print ("$count\n") while ($count++ < 5);