my $q = $c / $d unless $d == 0; # avoid division by zero error