#!/usr/bin/perl ############################################## use CGI qw(param); open(HITS, "count.txt"); $hits = ; close(HITS); ############################################## $hits++; ############################################## open(ADDHITS, ">count.txt"); print ADDHITS "$hits"; close(ADDHITS); ############################################## @months = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"); @days = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday","Friday", "Saturday"); ($sec, $min, $hourt, $daya, $montha, $year, $day2) = localtime(time); $year += "1900"; $day = "$days[$day2]"; $month = "$months[$montha]"; $date = "$month $daya, $year"; ######################################### $file = "status.txt"; open(FILE, ">$file"); $status = ; close(FILE); ######################################### $email = "U-H-A\@webtv.net"; @em = split("", $email); $email1 = join(" ", @em); ######################################### $ra=$ENV{'REMOTE_ADDR'}; $rp=$ENV{'REMOTE_PORT'}; ######################################### print "Content-Type: text/html\n\n"; print < Status
$email1
Alias: J3r3My
Date: $date
Status: Online
Remote Ip: $ra
Remote Port: $rp
Email Hits: $hits
Group: ShockWave Scripters
Application
Members
Rules
<noembed><noframes></body></html> EOM exit;