paster

  my $sth = $self->dbh->prepare( qq{ SHOW TABLE STATUS WHERE name = "$table" } )
    or die "Can't prepare SQL statement: $DBI::errstrn";

  $sth->execute()
    or die "Can't execute SQL statement: $DBI::errstrn";

  my %row;
  $sth->bind_columns( ( @row{ @{$sth->{NAME_lc} } } ));
  $sth->fetch;

  print "$row{update_time}n";