Select Code to Download

use MightyMod;
use XML::Simple;
my $y = BadSub(0);
my $z = GoodSub(0);
print "$y $z";

package MightyMod;
use strict;
...
    return 42 + LostSub(@_);
}
1;

#!/usr/bin/perl -w
use strict;
...
foreach (sort keys %{$h{subused}}) {
  print "$_\n" unless $h{subdef}{$_};
}

$ ./Find_Undefined_Subroutines.pl test.pl
BadSub
LostSub