> Perl t-shirt ideas
=pod
=head1 Bad Perl T-Shirt Ideas
Sorry.
=head2 perl related
* "My other t-shirt has a camel on it"
* "I know perl" "Show me"
* "If you programmed in perl you'd be home by now"
* "You don't have to be mad to program perl, but it helps"
* "95% of cats prefer programming perl over any other language"
* "Perl. There is no a."
* "mod_perl. It's not a quake add on. It's more fun than that"
=head2 lpm related
* "London.pm: we **** camels"
* "I want a PONY!", on the back (("PONY"x10)."\n")x40
=head2 joke within a joke (PIMB ref)
* "#! perl is my programming language of choice"
* "#! perl is my itch" (preferably in the same blue, same font)
* "Smack my perl up"
* "Muttley is a Arsehole" (let's see Randall complain about that)
* "I blame Wistow for *everything*"
=head2 random
* "XP programmers do it in pairs"
* "This is not a credit or debit card"
* "Just another local who happened to be in your holiday photo"
* "If you lived here you'd be like all the other voices"
* Front: "Why?" Back: "Why not?"
* On front and back "humorous slogan on other side"
* "This is a t-shirt. There are many like it. But this is mine"
* on the back "Stop following me"
=head2 and finally
#!/usr/bin/perl
$shop = undef;
{
local $shop = {}; $this = $shop;
local @people = &residents; for (@people) {$this->{$_}=\$PreciousThings;}
}
print HERE $shop->{You};
$shop->{You}->touch if defined($shop->{You})
=cut
--
print "\n",map{my$a="\n"if(length$_>6);' 'x(36-length($_)/2)."$_\n$a"} (
Name => 'Mark Fowler', Title => 'Technology Developer' ,
Firm => 'Profero Ltd', Web => 'http://www.profero.com/' ,
Email => '[EMAIL PROTECTED]', Phone => '+44 (0) 20 7700 9960' )