1 files changed, 2 insertions, 14 deletions
diff --git a/foo b/foo
index 88dac06e79..fcd3091bdf 100755
--- a/foo
+++ b/foo
@@ -1,17 +1,5 @@
 #!./perl
 
-$foo = <<EOF;
-Subject: foobar
-From: baz
-EOF
-
-$* = 1;
-
-$pat = '^([*+&!]*)(Subject:)';
-#$pat =~ s/([a-zA-Z])/[\u$1\l$1]/g;
-#print $pat;
-
-$foo =~ /$pat/ig;
-
-print $', "\n";
+require 'dumpvar.pl';
 
+&dumpvar("main");