Does anybody know what I'm doing wrong?

Knowing I am not doing, just guessing. Your scripts works fine on my box, Fedora7 with perl 5.8.8, I have verified that via capturing the traffic with wireshark. Have you checked your iptables (or firewall) settings?