extractowanie kursu waluty i potem uzycie jej jako zmiennej Opcje

mam sobie taki skrypcik:

[php:1:e539f0baee]

<?
$host = "www.nbp.pl";
$strona="/Kursy/KursyA.html";

$wskaznik = fsockopen($host, 80, $blad_nr, $blad_opis) or
die ("Nie można otworzyć strony $host<BR>Błąd: $blad_nr <BR>Opis: $blad_opis");
$naglowek = "GET $strona HTTP/1.1rnHost: $hostrnrn";
fputs($wskaznik, $naglowek);

$lancuch = "";
while(!feof($wskaznik))
$lancuch = $lancuch.fgets($wskaznik);
fclose($wskaznik);

$odpowiedz = substr($lancuch,0,strpos($lancuch,"rnrn"));

$strona = strip_tags(substr($lancuch, strpos($lancuch,"rnrn")));

$pre_usd = substr($strona,strpos($strona,"USD"),10);
$pre_euro = substr($strona,strpos($strona,"EUR"),10);
$pre_usd2 = substr($pre_usd, -5,4);
$pre_euro2 = substr($pre_euro, -5,4);

$usd = substr_replace($pre_usd2, ".",-3).substr($pre_usd, -3,2);
print "cena dolara: ".$pre_usd;

echo "<br>";

$euro = substr_replace($pre_euro2, ".",-3).substr($pre_euro, -3,2);
print "cena euro: ".$pre_euro;

echo "<br>";
$mnoznik = 20000;
echo "a teraz wartosci pomnozone przez zmienna mnoznik";

echo "<br>";

$wynik_eu = $euro*$mnoznik;
$wynik_us = $usd*$mnoznik;

print "<br>cena w zl: ".$mnoznik;
print "<br>cena w $: ".$wynik_us;
print "<br>cena w Eu: ".$wynik_eu;

?>
[/php:1:e539f0baee]

ktory zczytuje z nbp aktualnego dolara i eurusa a potem uzywa je do wyliczania cen

jednak owy skrypt ma wade, choc dziala to dziala dziwnie, czasami szybko a czasami straaaasznie dlugo, i teraz nie wiem dla czego
(nie jest to wina przeplywnosci lacza miedzy serwerem gdzie jest skrypt a serwerem nbp )

czy ktos moglby mi pomoc ?
moze podsunac jakis lepszy pomysl na otrzymywanie jako zmienne aktualnych kursow walut ?