use Win32::ODBC;
$dsn="DSN=web;UID=**;PWD=*****;database=Ecommerce";
$dsn2="DSN=web;UID=**;PWD=*****;database=Ecommerce";
$db = new Win32::ODBC($dsn);
$db2 = new Win32::ODBC($dsn2);
if (not defined $db2) {
    print "error connecting to data source \"$dsn\"\n";
    print '('.Win32::ODBC::Error.")\n";
    exit;
  }
  
  
$sql ="SELECT * FROM category";
$db ->Sql($sql);
while ($db->FetchRow()) {
  my(%data) = $db->DataHash();
   $sql2="update category set chrCat_Full_Name='".ucfirst(lc($data{'chrCat_Full_Name'}))."' where chrCategory_Code='".$data{'chrCategory_Code'}."'";
  $db2->Sql($sql2)|| die("Query error");
  print "$sql2 $data{'chrCat_Full_Name'}\n";
  }

$db->Close;
$db2->Close;