huschi.net

Problem:

Es gibt Lebenssituationen, in denen man nur ungern konkret über die Dinge spricht die einen bewegen. Gerade schüchterne EDV-Männer haben da gewisse Probleme am nächsten Morgen von ihrem abendlichen Discobesuch zu erzählen.

Lösung:

Man bedient sich einfach der Sprache der aktuellen Umgebung. Hier z.B. in Form von Linux-Befehlen:

updatedb; locate; talk; date; \
cd; strip; look; touch; finger; unzip; \
uptime; gawk; head; apt-get install condom; \
mount; fsck; gasp; more; yes; more; umount; \
apt-get remove --purge condom; make clean; \
sleep

Oder in Perl:

#!/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

$idx = 2;                       # start with two minutes; each zone increases
                                # by one minute
$oral = 0;                      # this should be run-time configurable
@zones=('lips', 'breasts', 'legs', 'crotch');
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);