How do you test code that uses wide-character warnings?

Testing code that uses wide-character warnings can be essential for ensuring that your Perl scripts handle characters correctly, especially when dealing with Unicode. You can enable wide character warnings in Perl using the `use utf8;` and `use warnings;` pragmas. Here’s a simple example:


        #!/usr/bin/perl
        use strict;
        use warnings;
        use utf8;
        
        my $string = "Hello, 世界";  # Example string with wide characters
        print "$string\n";  # Expected output: "Hello, 世界"