Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl
use 5.016; use warnings; 
# 1071094
...

return $amount * $ratio
}

Select or download this

C:\> 1071094.pl
Use of uninitialized value $ENV{"HOME"} in concatenation (.) or string
+ at D:\_Perl_\PMonks\1071094.pl line 19.
$ratio: 0.8113   $currency_from CHF      $currency_to: EUR
$ratio: 0.8113,          $currency_from CHF,     $currency_to: EUR
FOO: 40.565