This is my first attempt at obfuscation. Comments are very welcome.

      open(PM,$0);@a="\x50\x65
      \x72\x6C\x4D\x6F\x6e\x6B
      \x73\x21\x2D\x2D\x2D\x2D
      \x2D\x2D\x2D\x2D\x2D\x2D
      \x2D\x2D\x68\x74\x74\x70
      \x3A\x2F\x2F\x77\x77\x77
        \x2E\x70\x65\x72\x6C
          \x6D\x6F\x6E\x6B
                \x73
                \x2E
                \x6F
                \x72
                \x67"
             ;print<PM>;
         print"\xA";for$a(@a)
     {@b=split(' ',$a);}print @b;
[download]

...now, back to the mead. :)

cheers, -semio