Ann Barcomb (aka kudra) suggested I design a secondary T-shirt for YAPC::Europe-2.0.01, that would if possible mention security.
Here's the result:
#!/usr/bin/perl -wT use strict;use Safe;(my$s=new Safe)->permit(qw/rand sort entereval/);@_{s=>'t' }=(<<Orange,"smrfnexi--tjfillx ybvwvngwr ;-)\r");%_=(%_,split(/(\n^.{24})/m,q[ ____ ____ ____ _________ ________ _ \ \ / / / \ | V \ Hogeschool Holland | | __ __ \ \/ / / \ | __ \ ____/ __ __ Amsterdam / __) \ \/ / \ / / /\ \ | | \ | / / \ / \ Netherlands \__ \ > < | | / /__\ \| |__/ / | \__/ \__/ August 2-4 ( / /_/\_\ __|____|_/ ______ \ ____/ \____ __ __ 2001 _|_| __ __ | \ / \ \ | \ \/ \ / \ / __ \ \ \/ / | ______/_/ __ _\___\__|____\________/\__/_\__/ ---- / / _` | > < | \ | | | | V V __ \ | ___ \/ __ \ \ \__,_|/_/\_\ | ___/ | | | | ___/ / \ \| |___) ) /__) ) Coded by \___/_ __ __ | |_____| |__| | | | | | | ____/ ____/ Philippe (_)/ / \ \/ / | \ | | \ \__/ /| | \ \ "BooK" / /_ > < |_________/\____,__|__| \______/ |__| \_____/ Bruhat /_/(_)/_/\_\ Orange ____ ___ ___ _ ..(substr($y[&a],&p,1)=chr 97+(ord(substr$y[&a],&p,1)+ (___ \ / _ \_/ _ \/ | $c='( +)';s/(key)|eval/$1?"value":""/eg;*y=[split/(\W+ __) | | | | | | | | c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}print"\n"; __/ __/| | | | | | | | ){print@y if(select($/,$,,$<,.1*rand)||($y+=$p+++&c)). (__)/___| |_| | |_| | | )/,$_{t}];($_=eval)=~y/\n//d;sub c{length};for(split$c (_____(_)___(_)___/|_| udy]),'');$|++;$s->reval($_='eval join"",sort+keys%_')
Copyright © 2000-2001, Philippe "BooK" Bruhat.