Как посмотреть скрипт?

[C++]

Достался мне на работе один скрипт, видимо закодированный.
Начинается он с

Код: [Выделить]


 BEGIN{
#тут присваивание;
;eval pack(\'H*\',$s);
}
#тут много символов и букв


Как можно посмотреть и изменить его код.
Можно в приват

Заранее спасибо!

[metton]

C++
Ничего непонятно...

[C++]

metton
Скрипт начинается так:

Код: [Выделить]


#!/usr/bin/perl
BEGIN{$erwer346=\'e2f6d6f64756c6573223b757365206d6b706372743b\';eval pack(\'H*\',$erwer346);}
#тут, вместо комментария идут несколько очччень длинных строк, состоящих _только_ из цифр и букв латинского алфавита

больше ничего в нем нет.
Как узнать содержимое этого скрипта?

[ondr]

C++
Замени eval на print