1 files changed, 10 insertions, 0 deletions
diff --git a/bar.pm b/bar.pm
new file mode 100755
index 0000000000..330c168f11
--- /dev/null
+++ b/bar.pm
@@ -0,0 +1,10 @@
+#!./perl
+
+print "";
+@c = caller;
+print "@c";
+__END__
+
+require POSIX; import POSIX getpid;
+
+print &getpid, "\n";