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