woodo

#!/usr/bin/env perl
use strict;
use warnings;

if ($<) {
    print "It's a weird tree.\n";
} else {
    print <<'EOF';
         _              __
        / `\  (~._    ./  )
        \__/ __`-_\__/ ./
       _ \ \/  \   \ |_   __
     (   )  \__/ -^    \ /  \
      \_/ "  \  | o  o  |.. /  __
           \. --' ====  /  || /  \
             \   .  .  |---__.\__/
             /  :     /   |   |
             /   :   /     \_/
          --/ ::    (
         (  |     (  (____
       .--  .. ----**.____)
       \___/
EOF
}