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 );
   my $formatted_sql;

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

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_fulltext

.

   open OUTPUT, '>', \$return_scalar;
   while( $sth->fetch() ) {
      $formatted_sql = SQL::Beautify->new;
      $formatted_sql->query( $sql_fulltext );
      $sql_fulltext = $formatted_sql->beautify;;
      OUTPUT->flush();
      write OUTPUT;
   }
   close OUTPUT;

   return $return_scalar;
}