Думаю что лучше сделать на Перле

[Stas]

Есть такой вот код:

Daemon:
=========
#!/bin/bash

while [ 1 -eq 1 ]; do
        /stas/sbin/updatepng2
        sleep 10
done

updatepng2:
===========
#!/bin/bash

STOCK=`/stas/sbin/getstocks`

echo -en "#!/bin/bash \\nconvert -quality 10 -size 125x100 xc:grey -font Arial -pointsize 10 -fill black " > /tmp/.execfile

linecount=0
for stock in $STOCK; do
   linecount=`expr $linecount + 10`
   NAME=`echo $stock | awk -F\\: \'{ print $1 }\'`
   VALUE=`echo $stock | awk -F\\: \'{ print $2 }\' | cut -c 0-8`
   PERCENT=`echo $stock | awk -F\\: \'{ print $3 }\'`

   echo -en "-fill black -draw \\"text 0,$linecount \'$NAME\'\\" -fill blue -draw \\"text 42,$linecount \'$VALUE\'\\" -fill green -draw \\"text 89,$linecount \'$PERCENT\' \\" " >> /tmp/.execfile
done

dt=`date +"%d %b %k:%M:%S"`
echo -en " -fill black -draw \\"text 25,89 \'$dt\'\\" -colors 16  /destinationpath/out2.png " >> /tmp/.execfile

chmod 700 /tmp/.execfile
/tmp/.execfile

getstocks:
==========
#!/bin/bash

URL="http://it.finance.yahoo.com/d/quotes.htm?s=^MIB30+^NUMTEL+^GDAXI+^FTSE+^DJI+^IXIC+^N225&f=sl1t1c"

if [ -f /tmp/quotes ] ; then
        rm -f /tmp/quotes
fi

/usr/bin/wget -q -O /tmp/quotes "$URL"

cat /tmp/quotes  | awk \'BEGIN { FS = "[\\"\\^|\\",\\"|,| - ]+" } { print $2":"$3":"$7}\'

=================================
Как это лучше сделать, не пользуясь shell scriptom ?

На перле ? На PHP ? Написать на C ? Как с регулярками быть?

Если на Перле, то какие ключевые моменты нужно знать? Стоит-ли использовать wget или как-то средствами перл доставать страницу ?

Заранее спасибо.