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