$sql = "SELECT NOW()";
  $sth = $dbh->prepare($sql) or die "Error:" . $dbh->errstr . "\n";
  $sth->execute() or die "Error:" . $sth->errstr . "\n";
  while(my $row = $sth->fetchrow_hashref) { print Dumper($row); }