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";
}