sub print_query_results {
   my $dbh                = shift;
   my $sql_query          = shift;
   my $sql                = SQL::Beautify->new;
   my ( $sql_id, $min_last_load_time, $buffer_gets, $disk_reads, $executions, $sorts, $parse_calls, $sql_fulltext );
   my $return_scalar      = qq{
};

   my $sth = $dbh->prepare( $sql_query );
   $sth->execute();
   $sth->bind_columns( undef, \$sql_id, \$min_last_load_time, \$buffer_gets, \$disk_reads, \$executions, \$sorts, \$parse_calls, \$sql_fulltext );

   while( $sth->fetch() ) {
format OUTPUT =
@|||||||||||||||@||||||||||||||||||||@|||||||||||||||@|||||||||||||||@|||||||||||||||@|||||||||||||||@|||||||||||||||
'SQL_ID',       'min_last_load_time','buffer_gets',  'disk_reads',   'executions',   'sorts',        'parse_calls',
$sql_id,        $min_last_load_time, $buffer_gets,   $disk_reads,    $executions,    $sorts,         $parse_calls,

@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sql->query( $sql_fulltext )

.

open OUTPUT, '>', \$return_scalar;
write OUTPUT;
close OUTPUT;
}

   return $return_scalar;
}