$ perl -MIO::Socket::INET -E'
   system "ls -lF /proc/$$/fd/";
   my $s = IO::Socket::INET->new("www.google.com:80") or die $!;
   system "ls -lF /proc/$$/fd/";
'
total 0
lrwx------ 1 eric users 64 Feb 14 15:22 0 -> /dev/pts/7
lrwx------ 1 eric users 64 Feb 14 15:22 1 -> /dev/pts/7
lrwx------ 1 eric users 64 Feb 14 15:22 2 -> /dev/pts/7
lr-x------ 1 eric users 64 Feb 14 15:22 3 -> pipe:[2358130]
total 0
lrwx------ 1 eric users 64 Feb 14 15:22 0 -> /dev/pts/7
lrwx------ 1 eric users 64 Feb 14 15:22 1 -> /dev/pts/7
lrwx------ 1 eric users 64 Feb 14 15:22 2 -> /dev/pts/7
lr-x------ 1 eric users 64 Feb 14 15:22 3 -> socket:[2358143]
lr-x------ 1 eric users 64 Feb 14 15:22 4 -> pipe:[2358144]