#! perl

my $n = 'STDOUT';

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

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