Select Code to Download

package Base;

...
# use'd directly from within this package:
sub some_method { my $self = shift; carp "died" }

#!/usr/bin/perl
use strict;
...
# how about:
my $fubar = Thing->new();  # ???