perl -e "use IO::Socket"