Well, one glaring problem I see is that you have your sub definition after __END__ which I'm sure won't work. Try removing __END__, or at least put the code above it.

From perldoc perldata: "The two control characters ^D and ^Z, and the tokens __END__ and __DATA__ may be used to indicate the logical end of the script before the actual end of file. Any following text is ignored.".

-stevieb