#!/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");
