Код

use Text::Iconv;
use strict;
use DBI;
use CGI;
use Math::Base36 ':all';
use DateTime;

my $query = new CGI;
my $win_to_koi=Text::Iconv->new('windows-1251', 'koi8-r');
my $koi_to_win=Text::Iconv->new('koi8-r', 'windows-1251');
my (@rez, $sum, $status, $model, $sn, $client, $nomerdoc, $problem, $brand, $vendor, $iddoc, $id, $descr, $email, $tel, $person, $event_value);

print $query->header(-type=>'text/html',-charset=>'koi8-r');

my $doc_no  = $query->param('cid');
my $access  = $query->param('access');
my $serial_no  = $query->param('sernum');
my $ip  = $query->param('ip');
my $wap = $query->param('wap');

my $login = $query->param('login');
my $passwd = $query->param('passwd');

my $parent_id  = $query->param('parent_id');
my $tree_id  = $query->param('tree_id');

my $server   = '192.168.0.35';
my $database = 'TC';
my ($sql_query, $sth, $sth1);

my $dbh = DBI->connect("dbi:Sybase:$server", 'login', 'pass');
($dbh->do("use $database") != -2) || error("The database <b>$database</b> doesn't exist");

if(!$login) {
	  $sql_query = "SELECT
				Doc.IDDOC AS iddoc,
				Doc.sp6321 AS status,
				Model.DESCR AS model,
				SN.CODE AS sn,
				CASE Doc.sp6102 WHEN '     I    ' THEN RTRIM(Doc.sp6759) ELSE RTRIM(Client.DESCR) END AS client,
				CASE Vendor.DESCR WHEN 'Siemens' THEN 'BenQ Siemens' ELSE Vendor.DESCR END AS Vendor,
				Doc.sp6615 AS Brand,
				Doc.sp6095 AS problem
		    FROM dh6091 AS Doc (NOLOCK)
		    JOIN _1SJOURN AS J (NOLOCK) ON Doc.IDDOC = J.IDDOC
		    JOIN sc33 AS Model (NOLOCK) ON Model.ID = Doc.sp6092

и так далее...

и в конце:

$sth = $dbh->prepare($sql_query);
$sth->execute;
@rez = $sth->fetchrow_array;