0byt3m1n1

Path: /data/0/0/22/44/22370/user/22848/cgi-bin/ [ Home ]

File: topframe.pl

#!/usr/bin/perl

use CGI;

$q = new CGI;

print $q->header();

open (FH, "./top.html");
@lines = <FH>;
close(FH);

foreach $line(@lines)
{
	$line =~ s/\|LINK\|/$ENV{'QUERY_STRING'}/g;
	print "$line";
}