What am I doing wrong.

You are not using the <code> tags. See Markup in the Monastery.

Try to replace

print $som->result();
[download]

with

use Data::Dumper;
print Dumper $som->result();
[download]

that should help you to figure out what the problem is.