testing

#!/usr/bin/perl use CGI::Cookie; print "Content-type:text/html\n"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } $log = $FORM{username}; $pass = $FORM{password}; open (FILE, "users"); while(){ $fl = ; chomp $fl; ($name, $value) = split(/,/, $fl); $refpass = $value; $reflog = $name; close FILE; if ($pass eq $refpass && $log eq $reflog) { print "Set-Cookie: usernamefromzybak=$refpass\n\n"; print <testing welcome , $FORM{username}
to 171:4's headquarters!
Enter now! EndHTML close FILE; } } close FILE;