pole1 pole2 
                           q 1 
                           w 2 
                           e 3 
                           r 4 
                           как узнать какой букве какая цифра соответствует 
                           use DBI; 
                           $dbdriver = "mysql"; 
                           $hostname = "localhost"; 
                           $port = "3306"; 
                           $username = "qqqq"; 
                           $passwordb = "qqqq"; 
                           $basename = "Worktime"; 
                           $tablename = "www"; 
                           print "Content-type: text/html
"; 
                           $dbh =
                           DBI->connect("dbi:$dbdriver:$basename:$hostname:$port","$username","$passwordb"); 
                           $sqlstatement = "SELECT pole1,pole2 FROM $tablename" WHERE pole1=\'w\'; 
                           $sth = $dbh->prepare($sqlstatement); 
                           $sth->execute || die "Невозможно выполнить SQL-запрос."; 
                           while (@row=$sth->fetchrow_array) {print @row
;} 
                           print "