- or download this
package Some::Really::Long;
use Carp;
...
return 'From Some::Really::Long::Thing()';
}
1;
- or download this
#! perl -sw
use strict;
...
print Thing(),$/;
carp "T'is a good day to die!\n";
- or download this
C:\test>test
From Some::Really::Long::Thing()
T'is a good day to die!