3 $random = "linkmap_".(sprintf "%05X", int(rand()*0x100000));
7 $target = $cgi->param('code');
8 $target =~ tr/\;\<\>\|//d;
9 $dummy = `/usr/bin/perl /var/www/chiseperl/map.pl $target $random 2>/dev/null`;
12 open FH, "<$random.html";
18 print "Content-type: text/html\n\n";