#!/usr/local/bin/perl # # linkloader by pr 99 # 29.5.99 # $lade = $ENV{'QUERY_STRING'}; $lade =~ tr/+/ /; $lade =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; print "Content-Type: text/html\n\n"; $f= "