use LWP::Simple;
use List::Util 'max';
use strict;
use warnings;



stockquotegetter();



sub stockquotegetter
{

my (@quotes,$html,@aandelen,@url,@url1,@url2,$aandeel,%stockhash1);
$html = get("http://www.iex.nl/Koersen/Aandelen.aspx")
  or die "Couldn't fetch the stock quotes";
@aandelen = qw(Aegon Air Ahold Aperam Akzo ASML ArcelorMittal ING Boskalis Corio DSM Fugro Heineken KPN Philips PostNL Randstad Reed  Royal SBM TNT TomTom Wolters Unilever);
foreach $aandeel (@aandelen)
{
print "$aandeel";
@url = split(/Realtime koers $aandeel/, $html);


 @url1 = split(/LastPrice"><span>/, $url[1]);
 @url2 = split(/</, $url1[1]);
printf "$aandeel $url2[0]\n";
push (@quotes,$url2[0]);
$stockhash1{ $aandeel } = $url2[0];

#eval for hourly


}
#print @quotes;
return %stockhash1;
#print %stockhash1;
}