sub torf {
    my($val, $true_word, $false_word)=@_;

    $true_word  ||= 'Yes' ;
    $false_word ||= 'No' ;

    $val ? $true_word : $false_word ;
}