Bareword found where operator expected at /home/tatsu/Perl/MyLog/MyLog.pm line 36, near "} encode"
	(Missing operator before encode?)
syntax error at /home/tatsu/Perl/MyLog/MyLog.pm line 36, near "} encode"
Compilation failed in require at logtest.pl line 6.
BEGIN failed--compilation aborted at logtest.pl line 6.

##</code><code>##

use utf8;
use Time::Piece;
use Carp 'croak';
use Encode 'encode';

sub new {
  my $class = shift;
  my $self = {};
  bless $self, $class;
  my $timesig = localtime->strftime("%y%m%d%H%M%S");
  my $logfile = $timesig . '.log';
  if (-f $logfile) {
    croak "log file ${logfile} already exists.: $!";
  }
  open my $fh, '>>', $logfile
    or croak "can't open log file ${logfile}.: $!";
  $self->{fh} = $fh;
  return $self;
}

sub DESTROY {
  my $self = shift;
  close $self->{fh};
}

sub log {
  my $self = shift;
  my $timesig = localtime->strftime("%y%m%d%H%M%S");
#  my $fh = $self->{fh};
  foreach my $msg (@_) {
    print $self->{fh} encode('utf8', $timesig . ': ' . $msg . "\n");
#    print $fh encode('utf8', $timesig . ': ' . $msg . "\n");
  }
}

1;

##</code><code>##

sub log {
  my $self = shift;
  my $timesig = localtime->strftime("%y%m%d%H%M%S");
  my $fh = $self->{fh};
  foreach my $msg (@_) {
#    print $self->{fh} encode('utf8', $timesig . ': ' . $msg . "\n");
    print $fh encode('utf8', $timesig . ': ' . $msg . "\n");
  }
}

1;

##</code><code>##

use strict;
use warnings;
use utf8;
use FindBin;
use lib $FindBin::Bin;
use MyLog;

my $mylog = MyLog->new();

$mylog->log();
$mylog->log('');
$mylog->log('a', 'b');