$cb="{";$cb_="}";
open(F,"$param1");
while(<F>){
if(m!</style!i){$son=0}
if(m!<style!i){$son=1}
if(m!$param2.*$cb! && $son==1){$son=2}
if($son==2){$class.=$_;}
m!<link.+?href="(http.+?)"!i;push(@LINKS,$1);
}
foreach $link (@LINKS){
$link=~s!https*://.+?/!$path_to_domain/!;
open(L,"$link");
while(<L>){
if(m!$param2.*$cb!){$son=1}
if($son==1){$class.=$_;}
if(m!$cb_!){$son=0}
}
}
$class=~s!\s!!g;
$class=~s!}.+!}!;
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$class")</script>~;
1;