Select Code to Download

package MySQL::Profile;

...
=back

=cut

#!/usr/bin/perl
use strict;
...
#print Data::Dumper->new([$prof, $now, $earlier], [qw(prof now earlier
+)])->Dump;

print mysql_profile_to_table($prof);