/cgi-bin/404.cgi
#!/usr/bin/perl use Mail::Sendmail; use strict;
my $message = qq~ Document not found: $ENV{REQUEST_URI} Link was from: $ENV{HTTP_REFERER} ~;
my %mail = ( To => '[email protected]', From => '[email protected]', Subject => 'Broken link', Message => $message, ); sendmail(%mail);
print "Content-type: text/html\n\n"; print "Document not found. Admin has been notified";