Help for this page
use Data::Dumper; die Dumper($content);
<SCRIPT> if(self==top)top.location.replace("/?"+document.location) </SCRIPT>
#!/usr/bin/perl ... print $content;