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;