my $newrate = 0;
### AVOID ANY NASTY DIVISION-BY-ZERO ERRORS WITH AN EVAL...
eval
{
my $newrate = ($first_currency / $second_currency);
};

### IF EVAL FAILS, LET'S PRINT THE ERROR...
print $@;