use DBIx::Easy;

my $dbez = DBIx::Easy->new("DBI:mysql:database=mydb;host=localhost", 'dbusername', 'dbpassword');
foreach ($dbez->do(tableName => 'mytable', get => {'column_name' => 'value', 'another_column_name' => 'another value'}, set => {'column_name' => 16}))
{
        foreach my $key (keys %$_)
        {
                print "$key: ", $$_{$key} || '', "\t";
        }
        print "\n";
}