1 2 3 4 5 6 7 8
#!/usr/bin/perl print "Content-type: application/json\n\n"; print "{\n"; print " 'username': 'test',\n"; print " 'token': 'SDLIIBqCypa3bIRQEv9GMAPF4GHqelBD'\n"; print "}\n";