initial import

6 files changed, 191 insertions, 0 deletions

diff --git a/christmas.pl b/christmas.pl
new file mode 100644
index 0000000..ab9e802
--- /dev/null
+++ b/christmas.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+
+# (C) 2006 by Paul C. Buetow (http://paul.buetow.org) 
+
+Christmas:{time;#!!!
+
+Children: do tell $wishes;
+
+Santa: for $each (@children) { 
+BEGIN { read $each, $their, wishes and study them; use Memoize#ing
+
+} use constant gift, 'wrapping'; 
+package Gifts; pack $each, gift and bless $each and goto deliver
+or do import if not local $available,!!! HO, HO, HO;
+
+redo Santa, pipe $gifts, to_childs;
+redo Santa and do return if last one, is, delivered; 
+
+deliver: gift and require diagnostics if our $gifts ,not break;
+do{ use NEXT; time; tied $gifts} if broken and dump the, broken, ones;
+The_children: sleep and wait for (each %gift) and try { to => untie $gifts };
+
+redo Santa, pipe $gifts, to_childs;
+redo Santa and do return if last one, is, delivered; 
+
+The_christmas_tree: formline s/ /childrens/, $gifts;
+alarm and warn if not exists $Christmas{ tree}, @t, $ENV{HOME};  
+write <<EMail
+ to the parents to buy a new christmas tree!!!!111
+ and send the
+EMail
+;wait and redo deliver until defined local $tree;
+
+redo Santa, pipe $gifts, to_childs;
+redo Santa and do return if last one, is, delivered ;}
+
+END {} our $mission and do sleep until next Christmas ;}
+
+__END__
+
+This is perl, v5.8.8 built for i386-freebsd-64int
diff --git a/math.pl b/math.pl
new file mode 100644
index 0000000..b25bb87
--- /dev/null
+++ b/math.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+# (C) 2006 by Paul C. Buetow (http://paul.buetow.org) 
+
+goto library for study $math;
+BEGIN { s/earching/ books/ 
+and read $them, $at, $the } library:
+
+our $topics, cos and tan, 
+require strict; import { of, tied $patience };
+
+do { int'egrate'; sub trade; };
+do { exp'onentize' and abs'olutize' };
+study and study and study and study;
+
+foreach $topic ({of, math}) {
+you, m/ay /go, to, limits }
+
+do { not qw/erk / unless $success 
+and m/ove /o;$n and study };
+
+do { int'egrate'; sub trade; };
+do { exp'onentize' and abs'olutize' };
+study and study and study and study;
+
+grep /all/, exp'onents' and cos'inuses';
+/seek results/ for @all, log'4rithms';
+
+'you' =~ m/ay /go, not home 
+unless each %book ne#ars
+$completion;
+
+do { int'egrate'; sub trade; };
+do { exp'onentize' and abs'olutize' };
+
+#at
+home: //ig,'nore', time and sleep $very =~ s/tr/on/g;
+__END__
+
+
diff --git a/perllove.pl b/perllove.pl
new file mode 100644
index 0000000..2732b13
--- /dev/null
+++ b/perllove.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+no strict;
+no warnings;
+we: do { print 'love'
+or warn and die 'slow'
+unless not defined true #respect
+} for reverse'd', qw/mind of you/
+and map { 'me' } 'into', undef $mourning;
+__END__ 
+v2 Copyright (2005, 2006) by Paul C. Buetow, http://paul.buetow.org
diff --git a/php.pl b/php.pl
new file mode 100644
index 0000000..8586531
--- /dev/null
+++ b/php.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+# (C) 2006 by Paul C. Buetow (http://paul.buetow.org) 
+
+my $nation;
+
+no warnings; goto hell or die 'PHP!!11';
+
+$nation; BEGIN { our $mission and kill if PHP }
+
+use constant { Perl, 'Programming', all, time };
+
+require abs Perl and not undef$ined; sub knowledges {};
+
+hell: warn if PHP and not Perl;
+
+heaven: do index all, knowledges unless not Perl
+  	and not try { require PHP if defined };
+
+require Switch and delete $evil{PHP};
+
+Oh_Yes: do { PHP => Perl } for all, time;
+
+ref (our $best), knowledges() and listen Perl,power;
+
+END { our $mission and return if all }# is done
+
+bless [qw/the holy folk of/], Perl for (local $happiness);
+
+__END__
+ 
diff --git a/shopping.pl b/shopping.pl
new file mode 100644
index 0000000..eceb467
--- /dev/null
+++ b/shopping.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+# (C) 2007 by Paul C. Buetow (http://paul.buetow.org) 
+
+BEGIN{} goto mall for $shopping; 
+
+m/y/; mall: seek$s, cool products(), { to => $sell };
+for $their (@business) { to:; earn:; a:; lot:; of:; money: }
+
+do not goto home and exit mall if exists $new{product};
+foreach $of (q(uality rich products)){} package products; 
+
+our $news; do tell cool products() and do{ sub#tract
+cool{ $products and shift @the, @bad, @ones;
+
+do bless [q(uality)], $products 
+and return not undef $stuff if not (local $available) }};
+
+do { study and study and study for cool products() }
+and do { seek $all, cool products(), { to => $buy } };
+
+do { write $them, $down } and do { order: foreach (@case) { package s } };
+goto home if not exists $more{money} or die q(uerying) ;for( @money){};
+
+at:;home: do { END{} and:; rest:; a:; bit: exit $shopping } 
+and sleep until unpack$ing, cool products();
+
+__END__
+This is perl, v5.8.8 built for i386-freebsd-64int
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
+