#  First Step

my $query=qq~select name,text from pages where uid='1'~;

# Second Step

my($name,$text)=&sthqf($query); # Sub that handles all single row queries

# Third Step

$Tobj->name($name);
$Tobj->text($text);

undef ($name,$text,$query);

&display_data($Tobj);