#!/usr/bin/perl

use strict;
use Foo;

# here, something happens that messes up the die handler?
my $foo = Foo->new();

die('this will NOT appear in the error log at all');