# Explicit encode()
use Encode qw(encode);
print encode("UTF-8", $smiley):

# Set the filehandle to the encoding UTF-8
binmode STDOUT, ":encoding(UTF-8)";
print $smiley;

# Set the filehandle to :utf8, a shortcut syntax because you need it so often
binmode STDOUT, ":utf8";
print $smiley