рым полезным образом: use DateTime; use JSON; my $now = DateTime->now; print encode_json { time => ~~$now }; =head2 Дюймочервь на палке (Inc