use IO::Socket::IP -register;

for my $m (sort(keys(%INC))) {
   print "$m\n"
}

my $sock = IO::Socket->new(
   Domain    => PF_INET6,
   LocalHost => "::1",
   Listen    => 1,
) or die "Cannot create socket - $@\n";

print "Created a socket of type " . ref($sock) . "\n";

##</code><code>##

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
AutoLoader.pm
C:/strawberry/perl/lib/auto/POSIX/autosplit.ix
C:/strawberry/perl/lib/auto/POSIX/load_imports.al
Carp.pm
Config.pm
Config_git.pl
Config_heavy.pl
DynaLoader.pm
Errno.pm
Exporter.pm
Exporter/Heavy.pm
Fcntl.pm
IO.pm
IO/Handle.pm
IO/Socket.pm
IO/Socket/INET.pm
IO/Socket/IP.pm
IO/Socket/UNIX.pm
POSIX.pm
SelectSaver.pm
Socket.pm
Socket/GetAddrInfo.pm
Socket/GetAddrInfo/Core.pm
Socket/GetAddrInfo/XS.pm
Symbol.pm
Tie/Hash.pm
XSLoader.pm
base.pm
strict.pm
vars.pm
warnings.pm
warnings/register.pm
Created a socket of type IO::Socket::IP