#!/usr/bin/perl
use utf8;
use strict;
use warnings;
open (OUT, ">:utf8", '/dev/stdout')
        or die("Could not open file 'stdout' : error: $!\n");
print OUT "åäöfoo\n";
close(OUT);

##</code><code>##

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
open (OUT, ">:utf8", STDOUT)
        or die("Could not open file 'stdout' : error: $!\n");
print OUT "åäöfoo\n";
close(OUT);