use JSON;
use DateTime;

my $dt = DateTime->now;
print object_to_json($dt, qw/day month year hour minute second/), "\n";

sub object_to_json {
    my ( $object, @methods ) = @_;
    return to_json({ map { $_ => $object->$_ } @methods });
}