#! perl

my $n = 'STDOUT';

print $n "Now we's happy\n";

use strict;
print $n "Now we's not\n";

##</code><code>##

Now we's happy
Can't use string ("STDOUT") as a symbol ref while "strict refs" in use at ...\noname.pl line 8.