> perl || echo perl died
warn "Pull my finger.\n";
die bless [], 'Fart';
warn "Excuse me.\n";

package Fart;
use overload '""' => 'pfft';
sub pfft { return '' }
__END__
Pull my finger.
perl died