use LWP::Simple;

...
sub convert {
    $_=get("http://www.oanda.com/converter/
          classic?value=$amount&exch=$fc&expr=$tc");
   s/^.*<!-- conversion result starts//s;
   s/<!-- conversion result ends.*$//s;
   s/<[^>]+>//g; s/[ \n]+/ /gs;
   print $_, "\n";
}