#!/usr/bin/perl

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