'show_profiles' => q(
                my $self = shift;
                if(not defined $self->{PROF}){
                        carp "profiling not set";
                        return;
                }
                my $q = q(SHOW PROFILES);
                my $ar = $self->{DBH}->selectall_arrayref($q);
                my $sum = 0;
                print "\n";
                foreach my $e(@$ar){
                        $sum += $e->[1];
                        print join("\t", @$e), "\n";
                }
                print "\nSummary time: $sum seconds\n";
        ),