I tried this and it works:

use Modern::Perl;
use Data::Dump qw /dump/;

use SQL::Parser;
use SQL::Statement;

my $SqlParser = SQL::Parser->new() or die "Could not create an SQL::Pa
+rser";
my $parse = SQL::Statement->new('SELECT fie, max(foo), count(baz) FROM
+ bar JOIN fee WHERE foo > 10', $SqlParser);
my @columns = $parse->column_defs();
say dump @columns;
[download]

Output:

  { fullorg => "fie", type => "column", value => "fie" },
  {
    alias    => "MAX",
    arg      => { fullorg => "foo", type => "column", value => "foo" },
    argstr   => "foo",
    distinct => "ALL",
    fullorg  => "max (foo)",
    name     => "MAX",
    type     => "setfunc",
  },
  {
    alias    => "COUNT",
    arg      => { fullorg => "baz", type => "column", value => "baz" },
    argstr   => "baz",
    distinct => "ALL",
    fullorg  => "count (baz)",
    name     => "COUNT",
    type     => "setfunc",
  },