local $/; # slurp
my $source = readline;
+$JSON::PP::false = 0;
+$JSON::PP::true = 1;
+
my $data = from_json($source);
my $update = eval { stat(${^LAST_FH} // $ARGV)->mtime }
or warn "Could not determine input time\n";
$data->{-date} = Time::Piece->new($update)->datetime;
-print pp($data);
+say "# automatically generated by $0";
+print '+', pp($data);
__END__