% perl -wE'
use utf8;
package büdel;

sub new { bless {}, shift };
package main;

use Data::Dumper;
my $büdel = büdel->new;
say Dumper $büdel
'
$VAR1 = bless( {}, 'büdel' );