#!/usr/bin/perl -w
use warnings;
use strict;
use CGI qw(-utf8);
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper qw(Dumper);
use DBI;

print "Content-type: text/html\n\n";

    my $db   = "";
    my $host = "localhost";
    my $user = "";
    my $pass = "";

    my $table = '2qPwZ7vr';
    my $dbh = DBI->connect( "DBI:mysql:$db:$host", $user, $pass );
    
    my $sql = "SHOW TABLE STATUS FROM your_database LIKE ?";
    my $sth = $dbh->prepare($sql);
    $sth->execute($table);

    print "Last modified: ";

    while ( my $row = $sth->fetchrow_hashref ) {
        print Dumper "> " . $row;
    }