use DBI;
use diagnostics;
use strict;
my ($dbh,$sth);
my ($dbname)="pickle";
my ($login)="picklesql";
my ($password) ="pi56fb";
my (@ary);
#
$dbh = DBI->connect("DBI:mysql:$dbname",$login,$password)
	or die "Can't connect to $dbh: $dbh->errstr\n";
$sth = $dbh->prepare("SELECT * FROM catalog")
	or die "Can't connect to $dbh: $sth->errstr\n";
$sth-> execute()
	or die "Can't connect to $dbh: $sth->errstr\n";
$sth -> finish();
$dbh->disconnect();