#!/usr/local/bin/perl

# this is an example of using the while loop in perl
# it works similar to the while loop in C

$num = 0;

while ($num < 10)
{
   print "Number $num\n";
   $num++;
}

    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)