#!/usr/bin/perl
use strict;
use warnings;
use MySQL::Profile qw(mysql_profile mysql_profile_to_table);
use DBI;
my $dbh = DBI->connect('mysql...'); # DBD::mysql handle that you provide


my ($prof, $now, $earlier) = mysql_profile($dbh, sub {
    shift->selectrow_array("SELECT NOW(), DATE_SUB(NOW(), INTERVAL 1 DAY)");
});

#print Data::Dumper->new([$prof, $now, $earlier], [qw(prof now earlier)])->Dump;

print mysql_profile_to_table($prof);