...
$sth->execute;
my ($sno, $name) = $sth->fetchrow_array;
...
print $q->p("$sno, $name");
...