use Carp;

...

sub bail_out {
   my $message = shift;
   confess ($message);
}