From b8d1046fe4542237078ec18a1a8a93b79c8c1400 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Mon, 24 Mar 2014 23:32:54 +0100
Subject: initial import

---
 travel.pl | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 travel.pl

(limited to 'travel.pl')

diff --git a/travel.pl b/travel.pl
new file mode 100644
index 0000000..894e8ca
--- /dev/null
+++ b/travel.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+# (C) 2008 by Paul C. Buetow (http://paul.buetow.org) 
+
+Travel: time eq localtime;
+
+BEGIN { travel }
+
+do { pack (our $bag,packs) } and goto $bless, our $way;
+do { bless [our $long], $way } and goto far_away;
+
+far_away: { is => our $destiny } foreach @personality;
+for $the (@souls) { its => our $path };
+
+do { use Memoize } and @remember and not @forget;
+do { sub travel { to => stop,off } }; foreach (@location) {};
+
+far_away: { is => our $destiny } foreach @personality;
+for $the (@souls) { its => our $path };
+
+do { study and s/eek// for @wisdom };
+do { require strict; import { of, tied $power } };  
+
+local $robber, do kill unless tied $power;
+no warnings; do { alarm $us };
+
+far_away: { is => our $destiny } foreach @personality;
+for $the (@souls) { its => our $path };
+
+END { our $path }; do bless [], our $path if $arrived;
+do tell $the => $pupils and do tell $wisdom and ref $destiny;
+
+send $the => $pupils, goto destiny and goto Travel;
+tell $the; destiny: foreach (@soul) { }; 
+sleep $long for @ever and exit $live;
+
+__END__
+
+This is perl, v5.8.8 built for i386-freebsd-64int
+
-- 
cgit v1.2.3