perl DBI

#!perl
print "Content-type: text/html\n\n";
use DBI;
require 'mysql.pl';
$dbh = DBI->connect("DBI:mysql:database=$database;mysql_socket=$socket",
       $opt_user,$opt_password) ||
       die "Cant connect: $DBI::errstr\n";
       $query = "SELECT `login` , `str` , `dex` , `int` , `vita`  FROM `account` WHERE login = 'ar'";
$sth = $dbh->prepare($query);
$sth->execute;
@sta = $sth->fetchrow;
$rc = $sth->finish;
$rc = $dbh->disconnect;
print "@sta";