use Storable;

трябва да свърши работа ...




#!/usr/bin/perl
eval unpack("u", 'D<\')I;G0@(DIU<W0@86YO=&AE<B!097)L(&AA8VME<B%<;B(*');