cowsay cowfile of dog

dog.cow

$the_cow = <<EOC;
                    $thoughts
                        $thoughts
                            _
                          ,:'/   _..._
                         // ( `""-.._.'
                         \| /    6\___  /
                         |     6      4
                         |            /
                         \_       .--'
                         (_'---'`)
                         / `'---`()
                       ,'        |
       ,            .'`          |
       )\       _.-'             ;
      / |    .'`   _            /
    /` /   .'       '.        , |
   /  /   /           \   ;   | |
  |  \  |            |  .|   | |
    \  `"|           /.-' |   | |
     '-..-\       _.;.._  |   |.;-.
           \    <`.._  )) |  .;-. ))
           (__.  `  ))-'  \_    ))'
               `'--"`       `"""`

EOC