open(F,"$param1");
while(<F>){
if(m!</script!i){$son=0}
if(m!<script!i){$son=1}
if($son==1){
if(m!function.+?$param2.+?allow(.+)!){$function=$1;last}
}
if(m!<script.+?src="(http.+)"!i){push(@SRC,$1)}
}
foreach $src (@SRC){$x=$src;
$src=~s!http://.+?/!$path_to_domain/!;
open(S,"$src");
while(<S>){
if(m!function.+?$param2.+?allow(.+)!){$function=$1;last}
}
}
$function =~s/^ //;$function=~s!\s$!!;
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("FUNCTION: $param2\\n\\n$function")</script>~;
1;