#!/usr/bin/perl
use strict;
use warnings;
{
  my $eol =<<"＼(^o^)／";
人生オワタ
＼(^o^)／
  print $eol;
}
{
  use utf8;
  binmode STDOUT, ":utf8";
  my $eol =<<"＼(^o^)／";
人生オワタ
＼(^o^)／
  print $eol;
}