求perl脚本源代码恢复方法

david0

有个加密的perll脚本，源代码找不到了，能恢复源代码吗？
下面是执行file, strings命令查看的结果，执行head tracedaemon是乱码，求高手指导。
LinuxTest:/opt/sms_prog # file tracedaemon
tracedaemon: ELF 64-bit LSB executable, x86-64, version 1 (SYSV), for GNU/Linux 2.6.9, dynamically linked (uses shared libs), not stripped

LinuxTest:/opt/sms_prog # strings tracedaemon
/lib64/ld-linux-x86-64.so.2
@               D
libpthread.so.0
_Jv_RegisterClasses
pthread_create
sem_wait
pthread_self
pthread_detach
sem_post
sem_init
read
libconfigure.so
__gmon_start__
_fini
getlicense
libc.so.6
socket
fflush
strcpy
exit
sprintf
fopen
strrchr
perror
inet_ntoa
ftell
puts
inotify_rm_watch
msgrcv
select
mkdir
getpid
fgets
strlen
memset
fseek
msgget
ftok
fputc
memcpy
fclose
__strtol_internal
malloc
getenv
ioctl
inotify_init
msgsnd
localtime
inotify_add_watch
memmove
strcmp
__libc_start_main
vfprintf
snprintf
free
_edata
__bss_start
_end
sem_net
FTWCallback
log_file_size
TaskFunc
messg_q
thread_function
writeLog
envPath
sem_msg
msgKey_1
GLIBC_2.4
GLIBC_2.2.5
%z%
%r%
%j%
%b%
%Z%
%R%
%J%
%B%
%:%
%2%
%*%
%"%
%z$
%r$
%j$
%b$
%Z$
%R$
%J$
%B$
%
%2$
%*$
%"$
AUATUSH
[]A\A]A^A_
t)[1
8/tQH
[]A\
\$ H
l$(L
d$0H
AWAVAUATUSH
AVAUATU1
[]A\A]A^A_
[]A\1
l$ L
t$(L
|$0H
create thread thread_function
</%s>
<%s>
open
Env path not set
Can't open log file
127.0.0.1
get ip:%s
'%s',
'192.168.0.2',
        Starting monitor ...
Log_wd:%d
File:%s
TRACEDAEMON_LOG
LOG_DIR
LOG_DIR not set!!
SYSLOG_PATH
[WARNING] recv message one
[WARNING] message one send
/home
ftok
Syslog: %s
/tmp/hamster_monitor
Tracedaemon started
%s/%02d%02d%02d_tracedaemon.log
[%02d:%02d:%02d]INC[%05d]:  %s
        System of environmental setup error!!
TRACEDAEMON_LOG value set error
Environment variable $SYSLOG_PATH not found
/tmp/hamster_monitor/.msg_syslog_send
[ERROR] msget with message one
Recv a signal and send a message file size:%ld
In daemon cat't open log file
Tracedaemon startting with env path:%s
File
inotify_rm_watch(fd, wd) =
close (fd) =
inotifyinit error