#!/usr/bin/perl
#
# perlscript telop.pl
# Jan Mooij - 24 september 2000
# 

$doagain = "ja";

while($doagain eq "ja")
{
   $x = &geefgetal;
   $y = &geefgetal;
   $z = $x + $y;
   print "$x + $y = $z\n";
   print "Nog een keer? (ja  of nee) ";
   $doagain = <>;
   chop($doagain);
}
#
# en hier volgt de subroutine geefgetal
#
sub geefgetal
{
   print "Tik een getal in: ";
   $getal = <>;
   chop($getal);
   $getal;
}
