use DBI qw/ :sql_types / ;      # Database interface

my $h_sql1 = $db_inv->prepare_cached( 
  "select items from item_a where item_code = ? and item_stock = ?" 
  ) or die $DBI::errstr;

$h_sql1->bind_param( 1, "A0001" );
$h_sql1->bind_param( 2, 8, SQL_INTEGER );
$h_sql1->execute();