use strict;
use warnings;

eval <<'EOM';
    my $testü = 23;
};
EOM
print "error: $@\n";