Untitled

#!/usr/bin/perl

use DBI;

print <<END
Content-Type: text/html\n\n
<!DOCTYPE html>\n<html>\n<head>
<meta http-equiv="Content-Type" content="text/html; Charset=koi8-r">
</head>
END
;

if(!&mysql_start()){print("MySQL start error!");};
  $dbq = "SELECT fio FROM user WHERE id = 32345";
  $sql=$dbh->prepare($dbq);
  $sql->execute();

  while(my @l = $sql->fetchrow_array()){
        print $l[0] . "\n";
  }

sub mysql_start {
  local $SIG{ALRM} = sub { return 0; };
  alarm(5);

  unless($dbh = DBI->connect("DBI:mysql:billing:localhost", "root", "")) {
    alarm (0);
    return 0;
  }

  alarm (0);
}