Select Code to Download

# Stuff.pm
package Stuff;
use base 'Exporter';
@EXPORT = qw(new);
sub new { print "this is exported new!\n" }

# new.pl
use Stuff;
...
    my $self = shift;
    print "hello from a ", ref $self, "\n"; 
}