[no2pencil]

Description: place in your cgi-bin directory & give the required perms.Insult your visitors

#!/usr/bin/perl
# Written by #2pencil
# This script can be seen live at http://www.akroncdnr.com/cgi-bin/insult.cgi
use CGI;

$co = new CGI;

open(COUNT,";
close COUNT;

$count++;

open(COUNT,">counter.dat");
print COUNT $count;
close COUNT;

*enter=;
$ver = `perl -v | grep 386 | cut -d" " -f4`;

$line1 =  "Written by Akron Computer Design & Repair:
";
$line2 =  "www.akroncdnr.com  12/11/2006
";


print
$co->header.
$co->start_html(
  -title=>'Insult Master!',
  -author=>'number2pencil',
  -BGCOLOR=>'white',
),

$co->center($co->h1('Insult Master!')),
$co->p,
$co->center("
Brought to you by : PERL
", $ver, "
"),
$co->p,
$co->center("Please kiss My ${&insult} Ass!"),
$co->p,
$co->center($co->h3("You are insult #", $count)),
$co->p,
$co->center($line1),
$co->center($line2),
$co->p,
$co->end_html;
#Sub insult
sub insult {
  @insult = (
    "Mother Fucking", "God-Damned",
    "Butt Fucking", "Nobody",
    "Jerk", "Meat-Wad",
  );
  $r = rand 6;
  $msg = $insult[$r];
  return "msg"
};