package Some::Really::Long;
use Carp;
use Exporter;
@ISA=(Exporter);
#@EXPORT=qw(Thing carp);				# Method 1.
@EXPORT_OK=qw(Thing carp);			# Method 2. (preferred).

$VERSION = 1.00;

sub Thing{
	return 'From Some::Really::Long::Thing()';
}
1;

##</code><code>##

#! perl -sw
use strict;
#use Some::Really::Long;					# Method 1.
use Some::Really::Long qw(Thing carp);		# Method 2 (preferred).

print Thing(),$/;
carp "T'is a good day to die!\n";

##</code><code>##

C:\test>test
From Some::Really::Long::Thing()
T'is a good day to die!