added example

diff --git a/example/simple.pl b/example/simple.pl
new file mode 100755 (executable)
index 0000000..0c3ce26
--- /dev/null
+++ b/example/simple.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Devel::BeginLift qw(foo baz);
+
+use vars qw($i);
+
+BEGIN { $i = 0 }
+
+sub foo { "foo: $_[0]\n"; }
+
+sub bar { "bar: $_[0]\n"; }
+
+for (1 .. 3) {
+  print foo($i++);
+  print bar($i++);
+}
+
+no Devel::BeginLift;
+
+print foo($i++);