database.
my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost",
"lrmk", "lrmklrmk",
{'RaiseError' => 1});
my $sth = $dbh->prepare("SELECT * FROM users");
$
tried
#!/usr/bin/perl
use strict;
use DBI();
# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost",
"lrmk", "lrmklrmk",
{'RaiseError' => 1});
database.
my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost",
"lrmk", "lrmklrmk",
{'RaiseError' => 1});
my $sth = $dbh->prepare("SELECT * FROM users");
$
