Read the Exporter manpage... here's a simple example:

package Ctweten::Export;

use Exporter;
our @ISA = qw(Exporter); # we now inherit from Exporter, namely the im
+port() method

our @EXPORT_OK = qw(this that); # you must ask for these: use Ctweten:
+:Export 'this';
our @EXPORT    = qw(other); # exporter by default

sub this { print "Hello\n" }
*that = *other = *this;
[download]

In a program, if you want to use this() and other(), you do the following: <code> #!/usr/local/bin/perl -w use strict; $|++; use Ctweten::Export qw(this); other; this; that; # this would die under these circumstances.

--
Casey
   I am a superhero.