#!c:\perl\bin
print "\n\nHere is the pre-increment example: \n";
$count = 0;
while ($count < 5)
{
print "The value of \$count is " . ++$count . "\n";
}
print "\n\nHere is the post-increment example: \n";
$count = 0;
while ($count < 5)
{
print "The value of \$count is " . $count++ . "\n";
}