#!/usr/local/bin/perl

# This is an example of the do-while loop

$var=0;

do{
  print "number $var\n";
  $var++;
}while($var < 10);