Perl Programming/Exercise 8

PROGRAM FOR COUNTING THE NO: OF ENTRIES AND THE TOTAL

$total = 0; $count = 0; do { print ("Enter a number 0 to quit : "); $value = <>; chomp ($value); $total = $total + $value; if ($value != 0) {$count++;} } while ($value != 0); print ("\nNumber of entries : $count"); print ("\nTotal            : $total\n");
 * 1) !/usr/bin/perl