#!/usr/bin/perl -w
# first program

print "Hello World!\n" ;

$x = 0;
while ($x < 5)
 {
print $x ;
} continue { $x++;}