It's because you've supplied connect with a prototype by appending the parentheses - () to the name
Remove these, and it should work.
see perldoc perlsub for more information.
hope that helps
davis
Is this going out live?
No, Homer, very few cartoons are broadcast live - it's a terrible strain on the animator's wrist