1 files changed, 4 insertions, 1 deletions
diff --git a/bar b/bar
index 59bf5cfd7e..8c829177f6 100755
--- a/bar
+++ b/bar
@@ -1,6 +1,9 @@
 #!./perl
 
-require POSIX; import POSIX;
+BEGIN {require POSIX; import POSIX; }
+
+
+print POSIX::pipe(), "\n";
 
 $sigset = new POSIX::SigSet 1,3;
 delset $sigset 1;