perl -MIO::Socket -e 'print "$IO::Socket::VERSION\n"'