A couple of links while del.icio.us is ill

Happy birthday, Perl!

Perl was 18 today. In many jurisdictions, it can now drink intoxicating liquors, vote, and join the armed forces.

Global Warming Sceptic Bingo:

Just tick the box when they use the argument next to it. Get four in a row and you win!

Get well soon, del.icio.us.

This entry was posted in Uncategorized and tagged , , , , , , , , , . Bookmark the permalink. Both comments and trackbacks are currently closed.

2 Comments

  1. ben
    Posted December 19, 2005 at 11:02 | Permalink

    perl “joke” I saw on /. once:

    User 1: {)*&../”“%q)@$#^)K”[A-z}=#09#$<4>; User 2: Dude, you’ve just written a web server.

  2. Posted December 19, 2005 at 11:27 | Permalink

    another perl joke (legal, now that Perl is 18) (taken from here):

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