#!/usr/local/bin/perl

use strict;
use CGI;

use DBI;

use CGI::Carp qw(fatalsToBrowser);

my $q = CGI->new;   # suzadava obek ot tip CGI

print $q->header(); # metoda header vrushta kato text

my $username = $q->param("username");
my $password = $q->param("password");
my $userID = "";


my $dbh = DBI->connect("dbi:ODBC:sql_system", "sa", "sa991");

print <<"FORM";
<form action="LogIn.pl" method="POST">
<table border="1" align="center">
     <tr>
       <td>Username:</td>
       <td><input name="username" type="text" id="username" value=$username></td>
     </tr>
     <tr>
       <td>Password:</td>
       <td><input name="pass" type="password" id="pass" value=$password></td>
     </tr>
     <tr>
       <td colspan="2"><div align="center">
         <input type="submit" name="Submit" value="Submit">
       </div></td>
       </tr>
   </table>
</form>

FORM