Select Code to Download

use strict;
use Foo::Bar;
...
for my $sym ( keys %{ $::{ "${package}::" } } ) {
  print "$sym\n";
}

use strict;
use Foo::Bar;
...
__END__
PI
import

package Foo::Bar;
$PI = 3.14;
__END__