use Test::StubGenerator;

         my $stub = Test::StubGenerator->new(
           {
             file => '/path/to/MyModule.pm',
           }
         );

         print $stub->gen_testfile;

##</code><code>##

         $ perl -MTest::StubGenerator -e '
         > my $stub = Test::StubGenerator->new({ file => "Module.pm" });
         > print $stub->gen_testfile;' > Module.t

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)