Это не полноценный скрипт, но из него можно что-то сконструировать...
----------------------------------------------------------------------------
#!/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,5324print "EUR (@LINES[42])";#выдаст
36,5324----------------------------------------------------------------------------
для простого вывода на экран этого достаточно.
теперь осталось вычленить данные из тега
и заменить запятую на точку. тогда будет готовое значение курса.