foreach $line (<STK>) {
  ($stock) = split(/ /, $line);
  
  $hist = `curl -s "http://ichart.finance.yahoo.com/table.csv?s=$stock&a=3&b=12&c=2008&d=8&e=5&f=2009&g=d&ignore=.csv" | grep -v Date `;
}