use strict;
use warnings;

package Happiness;
use subs 'die';

sub die { local $| = 1; print "Don't worry, be happy\n" }

die "Good-bye, cruel world!\n";

warn "Suicide attempt failed\n";

CORE::die "OK, THIS time I'm outta here!\n";

__END__
Don't worry, be happy
Suicide attempt failed
OK, THIS time I'm outta here!