my ($msg) = @args;
# $query =
# find(
# -tables => [qw(table1 table2)],
# -where => {bla => 'blo', ble => 'bli'},
# -wherelike => {bla => '%blo', ble => '%bli'},
# -group => [qw(field1 field2)],
# -order => [qw(field3 field4)],
# -limit => 1000,
# -distinct => 1,
# );
# $result1 =
# create(
# -table => 'table',
# -row => {
# field1 => 'value1',
# field2 => 'value2',
# field3 => 33,
# },
# );
# $result2 =
# update(
# -table => 'table',
# -set => {
# field1 => 'value1',
# field2 => 'value2',
# field3 => 33,
# },
# -where => {bla => 'blo', ble => 'bli'},
# -wherelike => {bla => '%blo', ble => '%bli'},
# );
# $result3 =
# remove(
# -table => 'table',
# -where => {bla => 'blo', ble => 'bli'},
# -wherelike => {bla => '%blo', ble => '%bli'},
# );
#set('bla' => 'blo');
#set('blub' => [qw(a b c d)]);
return output(1, 'ok', Headline(-content => 'Hello, world!'));