use Win32::ODBC;
 
my $db = new Win32::ODBC('ServerStatistics');
 
$q="select distinct(build_date) from wdf_history";
$db->Sql($q);
while($db->FetchRow)
{
        $s = $db->Data();
        print $s;
 
}
 
$q = "select * from wdf_history where build_date='$s'";
 
while($db->FetchRow)
{
        $s = $db->Data();
        print $s;
 
}
 
$q="update wdf_history set build_date='2007-02-27' where
build_date='$s'";
$db->Sql($q);
 
$q = "select * from wdf_history where build_date='$s'";
 
while($db->FetchRow)
{
        $s = $db->Data();
        print $s;
 
}