Select Code to Download

 #! /usr/bin/perl -w


...

$z = $x + $y;
if ($ask eq "Add") {print "$x + $y = $z";}

Name "main::multiply" used only once: possible typo at rachael.pl line
+ 12.

Name "main::add" used only once: possible typo at rachael.pl line 10.
...
4) Divide
1
root:rachael {103}