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