The first, most obvious problem is that you did not use warnings; use strict;

I see undeclared variables and other weird stuff. What's "$output;" all by itself in the middle of the function supposed to do anyways?