Select Code to Download

#!/usr/bin/perl -w

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

    $query->end_html;

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

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

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

Database Test
(Correct email address)
Database Test

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