#!/usr/bin/perl 
#
#Connects to a Sybase Database

use DBI;  #Loads DBI module

#Connect using DBA (Opens DB Handle)....
$dbh = DBI->connect("dbi:ODBC:usamma", "arsamsdba", "arsamssql", {
		PrintError => 1,
		RaiseError => 1
		}) or die "Can't connect to database: $DBI::errstr\n";

print "Connect to Database\n";

eval
{

$dbh->do(q{
		UDPATE parser_table 
           	SET amdf_price = '0'
           	WHERE length(amdf_price) = 0
	  }
        );

$dbh->commit;
}