my $mysql = Net::MySQL->new(
      hostname => 'localhost',
      database => 'my_DB',
      user     => 'root',
      password => 'my_password'
      );

$mysql->query(q{"SELECT * FROM my_table WHERE MY_OTHER_COLUMN LIKE 'my_value'"});
$mysql->query(q{"UPDATE my_table SET MY_COLUMN = '' WHERE MY_OTHER_COLUMN = 'my_value'"});

die $mysql->get_error_message if $mysql->is_error;