Как я могу написать сценарий Perl для извлечения исходного кода каждой подпрограммы в пакете Perl?

Учитывая пакет Perl Foo.pm, например

package Foo;

use strict;

sub bar {
    # some code here 
}

sub baz {
    # more code here 
}

1;

Как я могу написать сценарий для извлечения текстового исходного кода для каждого подзаголовка, в результате чего hash:

$VAR1 = {
    'bar' => 'sub bar {
        # some code here 
    }',
    'baz' => 'sub baz {
        # more code here 
    }'
};

Я бы хотел, чтобы текст был точно таким, как он отображается в пакете, с пробелами и всем остальным.

Спасибо.