Just looking at the code (haven't tried testing it), my first thought is to print the error from the open where you're printing 'Booger'.

print "Booger: $!";

Should print the error message from your open.

Let me know what you get, and we can move on from there.