#!/usr/local/bin/perl
$done = 0;
$count = 1;
print ("This line is printed before the loop starts.\n");
while ($done == 0) {
print ("The value of count is ", $count, "\n");
if ($count == 3) {
$done = 1;
}
$count = $count + 1;
}
print ("End of loop.\n");