use strict;
use warnings;

wibble ();
wibble ();

sub wibble {
    my $unicode16Str;
    
    open my $UTF, '>:encoding(UTF-16LE)', \$unicode16Str;
    print $UTF "Wibble";
    close $UTF;
}

##</code><code>##

Use of uninitialized value in open at noname1.pl line 10.

##</code><code>##

my $unicode16Str;

##</code><code>##

my $unicode16Str = '';