arithmetic operation for infinite value in Perl

[jaigs_27]

Print statement is not executing and $inst_percent is not getting initialized looks like due to infinite value:-

my $tinst_percent = (25 / 0 )*0;
$inst_percent = $inst_percent - int($tinst_percent+0.5);

print "After Calculation $inst_percent";

please help me in resolving the issue

[wje_lf]

When I run these Perl statements, the script dies on the first line. It says:

Illegal division by zero at ./1.pl line 3.

So don't divide by zero. Perl doesn't define a lot of arithmetic for infinite values. If there's a possibility you might be dividing by zero, set a flag which indicates to your program that you tried to divide by zero, and do any special case operations you may wish to do, later in the script.

[jaigs_27]

thanks, I used if condition not to fall in infinite situation.