Курс доллара

[Inecs]

Никто не писал скрипта для выдергивания свежего курса доллара с сайта Центробанка например?
Если есть такие люди, то подскажите страничку откуда можно стянуть этот курс перл скриптом, или, лучше киньте в меня примером такого скрипта на мыло inecs@rambler.ru

[Atrey]

Это не полноценный скрипт, но из него можно что-то сконструировать...
----------------------------------------------------------------------------
#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
# Define parameters
$URL = "http://www.cbr.ru/scripts/XML_daily.asp";
use LWP::Simple;

$content = get($URL);

print $content;

@LINES = split("\\n",$content);

print "USD (@LINES[35])";#выдаст 27,5324
print "EUR (@LINES[42])";#выдаст 36,5324
----------------------------------------------------------------------------
для простого вывода на экран этого достаточно.

теперь осталось вычленить данные из тега и заменить запятую на точку. тогда будет готовое значение курса.

[2NetFly]

Проще подгрузить XML::Simple и ничего не вычленять =)

[Atrey]

Тогда как будет выглядеть программа?
Что будет на выходе?

Есть какой-нибудь пример?