The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package
 t_undef_error;
use strict;
use warnings;

use Exporter qw(import);
our @EXPORT = qw(t_undef_error);

sub t_undef_error {
  undef() . '';
}

1;