Select Code to Download

    print "Division by zero not allowed, starting over..." and redo
      if ( $frac01 =~ /^[\s\S]?\/?0$/ );

my ( $f1, $f2, $frac01, $frac02, $command, $total ) = (0) x 6;