return 
         $fh ? 1
             : wantarray ? split(/\r?\n/, $retval)
                         : $retval;