http://qs321.pair.com?node_id=295304

Just a couple of quips. Feel free to add some more;) 
# If at first you don't succeed, 
# then skydiving isn't for you.
if((!$succeed) && $first) { $skydiving !~ $you; }

[download]
On Winning and quiting... 
#Quitters never win.
$Quitters->never('win');

#Winners never quit.
$Winners->never('quit');

#Those who never win and never quit are idiots.
@Idiots = ($ThoseWho->never('win'), $ThoseWho->never('quit'));

[download]
Read this one here, but don't remeber where. If anyone knows, please /msg me and I will update this. 
#You can't make a baby in one month 
#by getting nine women pregnant.
$baby->gestation() != 1 if($women->pregnent(9));

[download]

Updates:

  1. $ThoseWho->never('win') was duplicated. Thanks abell
  2. Fixed my sig *blush* (simonm,naChoZ)
  3. $Quitters->never('quit') changed to 'win' (naChoZ)

Kristofer A. Hoch
Quality Assurance Professional
kristoferhoch@yahoo.com

Replies are listed 'Best First'.
Re: Translated Quips.
by bl0rf (Pilgrim) on Oct 01, 2003 at 01:00 UTC 
    while( $money < 20000 ){ $buy_happiness = undef }
#------

$fabric = Leather::new( rand( 10 ) );
if( $fabric->area() < 8 )
{
  print 'Can\'t make catsuit :-(';
}

    [download]
    Live well, eat Perl
    My site
[reply]
[d/l]

Back to Perl Poetry