sub getUsername {
  my $self = shift;

  $sth = $self->{db}->prepare($sql) || die "cannot prepare query, errmsg = $DBI::errstr";

}