sub Or_Not {
  if ( $my_girlfriend_who_I_love_more_than_life_itself->does_not_like('Perl')

##</code><code>##

 and $my_girlfriend_who_I_love_more_than_life_itself->is_fed_up_with_me_for('Paying More Attention To My Computer Than Her And Staying On PerlMonks Unitl 3 AM')

##</code><code>##

 ){   drink(); read_Playboys();

##</code><code>##

 sleep_on_couch();

##</code><code>##

 }
}