#!/usr/local/bin/perl

# This is an example of using the do-until loop in perl

$var=0;

do{
  print "number $var\n";
  $var++;
}
until ($var > 10);

    Source: geocities.com/siliconvalley/vista/6493/perl/code

               ( geocities.com/siliconvalley/vista/6493/perl)                   ( geocities.com/siliconvalley/vista/6493)                   ( geocities.com/siliconvalley/vista)                   ( geocities.com/siliconvalley)