#!/usr/bin/perl

$a = 0;
while ($a < 10)
  {
    print ("Hello World\n");
    $a =$a + 1;
  }
