C:\@Work\Perl\monks\gctaylor1>perl test_soft_refs_1.pl
ok 1 - use Mysimple_mod;
ok 2 - \#2 external is defined
ok 3 - \#3 internal is defined
not ok 4 - \#4 bogus subroutine
#     Failed test (test_soft_refs_1.pl at line 77)
not ok 5 - \#5 bogus subroutine
#     Failed test (test_soft_refs_1.pl at line 78)
ok 6 - invoke soft ref'd func Mysimple_mod::internal( 9)
not ok 7 - invoke soft ref'd func Mysimple_mod::internal(10)
#     Failed test (test_soft_refs_1.pl at line 87)
1..7
# Looks like you failed 3 tests of 7.