Imported Upstream version 20120701

[perltidy.git] / docs / testfile.pl

diff --git a/docs/testfile.pl b/docs/testfile.pl
new file mode 100644 (file)
index 0000000..182f2be
--- /dev/null
+++ b/docs/testfile.pl
@@ -0,0 +1,10 @@
+print "Help Desk -- What Editor do you use? ";
+chomp($editor = <STDIN>);
+if ($editor =~ /emacs/i) {
+  print "Why aren't you using vi?\n";
+} elsif ($editor =~ /vi/i) {
+  print "Why aren't you using emacs?\n";
+} else {
+  print "I think that's the problem\n";
+}
+