#!/usr/bin/perl use CGI qw(param); open(HITS, "Hits.txt"); $hits = ; close(HITS); ######################################## $hits++; ######################################## open(ADDHITS, ">Hits.txt"); print ADDHITS "$hits"; close(ADDHITS); ######################################## print "Content-Type: text/html\n\n"; print <<body bgcolor="090909" address="hidden"> <center><table border="0" bgcolor="353535" cellpadding="3" cellspacing="2"><td bgcolor="101010" absheight="30" align="center" width="350"><font size="3" color="be9c1a" effect="shadow"> <blackface><limittext value="JavaScript Bug (Reload Page)"></td><td bgcolor="101010" align="center" width="50"><font size="3" color="be9c1a" effect="shadow"><blackface><limittext value="?"></td></table></center><noembed> R e m o t e M a N a g e r
Ftp Server
UserName
PassWord
Directory

Below you can choose what types
of files to list. Its very useful when
you have many files in one directory.
ALL JPG GIF HTML TXT PL CGI
</body> </html> EOF exit;