Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

On travel

by buetow (Beadle)
on Jan 20, 2008 at 12:15 UTC ( #663270=poem: print w/replies, xml ) Need Help??

Hello! I just wrote a Poem about being on travel. I hope you like it:
#!/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
Paul C. BŁtow http://paul.buetow.org http://use.perl9.org UPDATE: New signature URL!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://663270]
Approved by shmem
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2022-08-08 05:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?