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


in reply to Translated Quips.

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

In Section Perl Poetry