Why is Perl's Sockets so slow?

example: scanner.pl
-foreach ($_) {
-opens a socket
-etc, etc, etc...
-closes socket }

This is really really slow (slower than winsock)!
Any ideas why Perl is so slow?

I've tested on BSD/Win2k...