pathlist = file_gettostr(ProgDir..'Scripts//cgiscan.lst')
 tab:clearlog()
 tab:viewheaders()
 tab:log('Scanning '..tab.url..'...')
 http = GHTTPRequest:new()
 p = GStrListParser:new()
 p:loadfromstr(pathlist)
 while p:parsing() do
  http:open('GET',tab.url..p.current)
  tab:logrequest('CGI Scanner',http.contentlength,http:sentheader(),http:rcvdheader(),http.text)
  app.processmessages()
  if http.statuscode == 200 then
   tab:log('Found: '..p.current)
  end
 end
 p:release()
 http:release()
 tab:log('Done.')