diff --git a/examples/spurious_perl_error.pl b/examples/spurious_perl_error.pl
new file mode 100755
index 0000000..60e6749
--- /dev/null
+++ b/examples/spurious_perl_error.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w 
+
+use strict;
+use warnings;
+
+# Why does this produce a warning *and* the expected behavior?
+
+# Useless use of private variable in void context at ./spurious_perl_error.pl line 8.
+# woohoo!
+
+my ($x,$y) = (3,4);
+
+if ( ($x,$y) == pair() ) {
+    print "woohoo!\n";
+}
+sub pair { return (3,4) };
+