Как выдернуть исходный код из запущенного Perl скрипта?

Запускаем: gdb после этого подключаемся к Pid процесса, который нас интересует:  attach 1708

Генерируем core dump: generate-core-file

А далее ничего умнее чем прогнать strings в голову не приходит =( Но в моем случае это помогло и пароли нашлись на ура!

Еще инфа: http://stackoverflow.com/questions/3576710/reverse-engineering-a-perl-script-based-on-a-core-dump