woops. tried to use JSON in perl.