#!/usr/bin/perl   use DBI;  $database="mysql"; # имя базы к которой скрипт конектится первоначально  $hostname="localhost"; # хост  $port="1133"; # порт  $user="root"; # логин  $password="pass"; # пароль    $lol=DBI->connect("DBI:mysql:$database:$hostname:$port",$user, $password) or die 'Connect to BD ... [-]\n';    Poexali:    print'command->';  $zapr=<STDIN>;  if ($zapr=='exit'){$lol=DBI->disconnect;exit;}  $s=$lol->prepare("$zapr");  $str=$s->execute;  @znach = $s->fetchrow_array;  for ($i = 1; $i<=$str; $i++) {   print"\n@znach[$i]";  }  $s->finish()  goto(Poexali:);    # для выхода вбейте команду exit