$i = 0; 
	while (@record[$i]){
		# Set adv_cookie
		$cgi = CGI->new;
		$adv = @record[$i];

      my ($to_set) = cookie(
      	-name => 'adv',
      	-value => $adv,
      	-path => '/',
      );

print header(-cookie=>[$to_set]);

	$i=$i+1;	
	my (@args) = ($path."advlst.cgi");
 	system(@args);