Posted to alt.humor.best-of-usenet by Tom Phoenix (rootbeer@teleport.com)

Newsgroups: alt.sysadmin.recovery,comp.lang.perl.misc
From: an445371@anon.penet.fi
Subject: Re: Sysadmin dreams...

> During my Perl-absorption period, I remember dreaming that I had to
> write a Perl script to run on a bicycle. I wonder who ported Perl to
> that bicycle...

During _my_ Perl-absorption period, I caught myself thinking in Perl when I
was being, err, intimate with my girlfriend. I was always thinking about
how to codify the process. There were signals, subroutines, variables,
device drivers, the whole nine yards (pun intended). It went something like
this:

#!/usr/games/perl

$SIG{'SLAP_IN_FACE'}='cold_shower';

@clothes=('shirt', 'bra', 'pants', 'underwear');

foreach $i (@clothes) {
unlink $i; # fsck bedroomfs to recover zombie clothes
} # later

@zones=('lips', 'breasts', 'legs', 'crotch');

$idx = 2; # start with two minutes; each zone increases
# by one minute
$oral = 0; # this should be run-time configurable

foreach $i (@zones) {
$idx++;
unless ($i =~ /lips/) { # lip massage? I don't think so.
&rub(60*$idx, $i); # args are time-in-seconds, spot
}

unless ($i =~ /crotch/ && !$oral) {
&kiss(60*$idx, $i);
}

}

&mount; # expect to catch that SLAP_IN_FACE signal
# here (if not earlier)

&screw; # catches SIGORGASM

# We made it!
&dismount;
&smoke;
return(0);

Come to think of it, this goes a long way to explaining why I don't have a
girlfriend anymore. :-) Oh, well, I've got Perl and emacs now, who needs
anything else?
---------------------------------------------------------------------------