#!/usr/bin/perl -w use strict; eval eval eval; BEGIN{$_='unpack"u",\'M;7DD8S LD7STB-S`W,C8Y-F4W-#(P,C(T83< U-S,W-#(P-C$V939F-S0V.#8UxxxM -S(R,#4P-C4W,C9C,C`V.#8Q-C,V8 C8U-S(U8S9E,C(S8B([=VAI;&4H;2 @Hxxx@+BXI*7-G*7LD8RX]8VAR(&A E>"0Q.WUR971U