Select Code to Download

$ ./6.MY.translate.pl --configfile C --from tja --infile /home/bob/Doc
+uments/meditations/Algorithm-Markov-Multiorder-Learner-master/data/2.
+short.shelley.txt --outfile /home/bob/Desktop/1.state
input  is “The ancient teachers of this science,” said he,
“promised impossibilities and performed nothing. The modern masters
...
--- mod is
bless({ format => 5.23, FROM => "en", key => 123, START => 1562878454,
+ TO => "ru" }, "My::Module")
$

#!/usr/bin/perl -w
use 5.011;
binmode STDOUT, ":utf8";
...
say "--- mod is";
dd $mod;
__END__

----------------
begin block to change
property is TO
...
param 'key' is required. at ./6.MY.translate.pl line 53.
Died at ./6.MY.translate.pl line 133.
$

    SCALAR
    ARRAY
    HASH
...
    IO
    VSTRING
    Regexp

  say "begin block to change";
  use Carp;
  my $self = \%self;
...
    }
  }
  say "after block to change, self is";