Select Code to Download

# Save some typing when you can!  Make your vars lexical where it make
+s sense.
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($
+tomorrows_time);
...
else {
  $newrate = ($first_currency / $second_currency);
}

my $tomorrows_time = time() + 86400;
...
Japanese (Yen),JPY,0.007592,131.73
Dutch (Guilder),NLG,0.8794,1.1375
New Zealand (Dollar),NZD,0.4375,2.2883