I don't know what is wrong with this code, it just won't compile. 
if($ENV {"REQUEST_METHOD"} eq 'GET')
        { $rqst = $ENV{"QUERY_STRING"}}
else
    {read(STDIN, &rqst, $ENV{"CONTENT_LENGTH"})}


@rqstedtd = split(/&/, $rqst, 2);
@user       = split(/=/, $rqstedtd[1], 2);
@pass       = split(/=/, $rqstedtd[3], 2);


open(PASS, "pass") or die "Couldn't find password file.\n";
open(LOGG, ">>log") or die "Coundn't find log file.\n";



while(<PASS>)
{
        $fstln = $_;
        chomp($fstln);
        @login = split(/\t/, $fstln, 2);

unless ($user[1] ne $login[0])
{
next;
}



if($pass[1] eq $login[1])
{


    print <<EndOfTop      


        Content-type: text/html


        <html>
        <title>
        Login sucessful!
        <head>
        <hr>
        </head>
        <body bgcolor="black" text="red">
        <h3>
        Login succesful!
        <br>
        <br>
        <a href="www.eircom.net">
        <h2>
        Click here to continue
        </a>
        <hr>
        </body>
        </html>
EndOfTop
}


else
{
    print <<EndOfBotom

        <html>
        <title>
        Login Unsuccesful
        </title>
        <head>
        <hr>
        <h3>
        Login unsuccesful
        </head>
        <body bgcolor="black" text="red">
        Invalid username\password.
        <br>
        Please try again.<br>
        <br>
        <hr>
        <form method=POST action="file://C:\perl\login\password\login.
+cgi">
        User Name:  <input name=user size=30>
        <br>
        Password:  <input name=pass size=30>
        <br>
        <input type="submit" value="Send">
        <hr>
        </body>
        </html>
EndOfBotom

}}

[download]

edited: Sun Dec 22 22:55:22 2002 by jeffa - title change (was: Help please!!)

In reply to Problem with CGI script by eoin

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.