#! 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";