title: Can't call method "fetchrow_array" without a package or object reference
body: <p>I want to select data form database and display them, but I am having the following  problem: <code>Can't call method "fetchrow_array" without a package or object reference</code></p>
  
  <p>test.pl<br>
      my $q = new CGI();</p>
  
  <pre><code>my $handle = Db::connection();
  
  sub select{
      my $rData = {
          table =&gt; 'student',
          condition =&gt; {
               ID   =&gt; 100,            
           }   
      };   
      return Db::select($rData);
  };
  
  print $q-&gt;header;
  print $q-&gt;start_html(
     -title  =&gt; "Main",
     -style  =&gt; {-src =&gt;'/media/css/start/jquery-ui-1.10.3.custom.css" rel="stylesheet' },
     -script =&gt; [ 
          { -src=&gt;'/media/js/jquery-1.9.1.js'},
          { -src=&gt;'/media/js/jquery-ui-1.10.3.custom.js'},
          { -src=&gt;'/media/js/jquery.dataTables.js'},
     ]
  );
  
  my $cScript = qq{   
     \$(document).ready(function(){
        oTable = \$('#id_table').dataTable({
           "bJQueryUI": true,
           "sPaginationType": "full_numbers",             
     });       
  
     \$("input[type=button], a, button")
        .button()
        .click(function( event ){
           event.preventDefault();
        });
     });       
  };
  
  print $q-&gt;script($cScript);
  
  print start_form (-method =&gt; 'post', -action =&gt; "" );
  
  my @aRows;
  my $sqlSelect =  Dbm::get_list({
          table =&gt; 'personi',
          condition =&gt; {
               ID   =&gt; 100,
  
           }   
      });
  
  while (my @data = $sqlSelect-&gt;fetchrow_array()) {     
     my $cRowId = hidden('rowid', $data[0]);
     my $bt1    = image_button({-src =&gt; '/media/images/delete_1.png',
                          -class =&gt; 'del', 
                          -title =&gt; 'delete', 
                          -name  =&gt; 'delete',
                          -value =&gt; $data[0],
  
     my $bt2   = image_button({-src =&gt; '/media/images/edit_1.png',-class =&gt; 'upd', -title =&gt; 'update',  -name  =&gt; 'update', -value =&gt; $data[0]});                       
  
     push @aRows, ($cRowId, $q-&gt;Tr($q-&gt;td([$data[1], $data[2], $data[3], $bt1, $bt2])));
  }
  
  print $q-&gt;table({-border =&gt; '1px solid green',-align =&gt;'center',  -width =&gt; '100%', -id =&gt; 'id_table'},
     thead($q-&gt;th(['Name', 'Surname', 'Age', 'Delete', 'Edit'])),
     @aRows,
  );  
  
  print $q-&gt;input({-type =&gt; 'button', -class =&gt; 'button', -onclick =&gt; "window.location.href='insert.pl';", -value =&gt; 'Shto'});
  print $q-&gt;end_form;  
  
  print test_select();
  </code></pre>
  
  <p>I can't figure out where may be the problem. I am new at this language and need some help</p>