#!/usr/bin/perl

use strict;
use Foo;

# here, something happens that messes up the die handler?
my $foo = Foo->new();
# but this apparently fixes it:
undef $foo;

die('this DOES appear in the error log');