A program that uses the pre-increment operation.
#!/usr/local/bin/perl $value = 0; while (++$value <= 5) { print("value is now $value\n"); } print("all done\n");