#!/usr/bin/perl -w

use CGI;
use strict;
use DBI;

my $query = new CGI->new();



print $query->header("text/html"),


$query->start_html(-title => "Database Test"),

$query->h1("Database Test"),

my $user = $query->param("username"),

my  $db_handle = DBI->connect("dbi:mysql:database=test;host=localhost;user=root;")
  or die "Couldn't connect to database: $DBI::errstr\n";
   
my $sql = "SELECT * FROM users WHERE id = '$user'";

my $statement = $db_handle->prepare($sql)
        or die "Couldn't prepare query '$sql': $DBI::errstr\n";

$statement->execute()
        or die "Couldn't execute query '$sql': $DBI::errstr\n";
    
while (my $row_ref = $statement->fetchrow_hashref())
{
   
	
	print "<b>$row_ref->{email}</b>" ;
	
}

$db_handle->disconnect();

 print "<h1>Database Test</h1>";

	$query->end_html;

##</code><code>##

Database Test
(Username i enter in the form)DBI::db=HASH(0x838242c)
Database Test

##</code><code>##

my $sql = "SELECT * FROM users WHERE id = '$user'";

##</code><code>##

my $sql = "SELECT * FROM users WHERE id = 1";

##</code><code>##

Database Test
(Correct email address)
Database Test

##</code><code>##

Use of uninitialized value in concatenation (.) or string at login.pl line 27.