Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Re: (jptxs) I pity da foo who forgets to add a title

by jptxs (Curate)
on Nov 17, 2000 at 10:47 UTC ( #42173=note: print w/replies, xml ) Need Help??

in reply to Re: I pity da foo who forgets to add a title
in thread I pity da foo who forgets to add a title

package MrT; use strict; use Exporter; use vars qw(@ISA @EXPORT_OK); @ISA = qw(Exporter); @EXPORT_OK = qw(&tprint); sub tprint { my @sayings = ( 'I pity the fool that ', 'The sucka better ', 'Maybe you should come over here and see what a real man is li +ke cause ', '"No way you gettin me in that airplane" said Mr. T as he fain +ted and '); my $choice = rand 4; print $sayings[$choice], @_; } 1;
<myExperience> $mostLanguages = 'Designed for engineers by engineers.'; $perl = 'Designed for people who speak by a linguist.'; </myExperience>

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://42173]
[virtualsue]: an exclusive club
marto waves
choroba sees 5
Discipulus more.. and count cloaked monks..
shmem joins the club
[Discipulus]: welcome back to Tkperlmonks virtualsue! ;=)
[virtualsue]: I missed my 17 year anniversary
[erix]: a virtualanniversary , seems apt enough :P

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2018-04-24 11:00 GMT
Find Nodes?
    Voting Booth?