#!/usr/bin/perl -w

use strict;
use IO::Socket;

print "Before socketpair() call: $!\n";
my @s = IO::Socket->socketpair(AF_UNIX, SOCK_STREAM, PF_UNIX)
    or die "socketpair: $!\n";
print "After socketpair() call: $!\n";