#!/usr/bin/perl
$value =0;
while ($value++ <= 5) {
         print("value is now $value\n");
}
print("all donw\n");