Hi

Look at Math::Polynomial::Solve.

You may have to reformat your equation:

From the document..

# Find the roots of ax + b
  my @x1 = linear_roots($a, $b);

# Find the roots of ax**2 + bx +c
my @x2 = quadratic_roots($a, $b, $c);
[download]

Artist