programming-examples/perl/_Basics/A program that uses the pre-increment operation..pl

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