--- IO-FDPass/FDPass.pm	2013/04/05 08:20:36	1.4
+++ IO-FDPass/FDPass.pm	2013/04/05 09:12:59	1.5
@@ -6,6 +6,12 @@
 
    use IO::FDPass;
 
+   IO::FDPass::send fileno $socket, fileno $fh_to_pass
+      or die "send failed: $!";
+
+   my $fd = IO::FDPass::recv fileno $socket;
+   $fd >= 0 or die "recv failed: $!";
+
 =head1 DESCRIPTION
 
 This small low-level module only has one purpose: pass a file descriptor