Reply to myself :)
Might as well add this, what to do after you connect...

my $sth = $dbh->prepare("SELECT email, password FROM surya");
$sth->execute;
my $aref = $sth->fetchall_arrayref;
$sth->finish;

print "Email\tPassword\n";
for my $row (@$aref) {
  print join("\t",@$row) . "\n";
}
[download]

That would seem to emulate the rest of the functionality of your code except it doesn't output in HTML, have a look at something like HTML::Template for that.