in reply to Re^3: Attempt to free unreferenced scalar
in thread Attempt to free unreferenced scalar

if( $underwear->wearout ){
  $underwear->host->peepShow
}

[download]

In Section Seekers of Perl Wisdom