#Jaime Prilusky, 2003

# a simple demo library
# provides subroutine sum to caller

sub sum {
  my(@data) = @_;
  my ($sum,$count,$value);
  foreach $value (@data) {
    $sum += $value;
    $count++;
  }
  return ($sum,$count);
}

1;