sub comgetter
{#platinum enzo werkt allemaal nog niet

my @comquotes;
$html = get("http://www.forexpros.nl/commodities/real-time-futures-noteringen")
  or die "Couldn't fetch the commodities quotes";

foreach $aandeel (@_)
{
#printf "$aandeel ";
@url = split(/title="$aandeel"/, $html);
$geest = "</td><td";
#print "$url[1]";
 @url1 = split(/$geest/, $url[1]);
#print "$url1[1]";
 @url2 = split(/>/, $url1[1]);
 
#$html =~ m{basevalues['11754LastPrice'] =  ([\d,]+)  ;};
#printf $_;
#printf $sales_rank
#$html =~ m{ '11754LastPrice'] = (.*?);}i;       # extract destination of link
#$url = $1;
printf "$aandeel $url2[1]\n";
push (@quotes,$url2[-1]);

}
return @quotes
}