authtoken.json


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: application/json\n\n";

print "{\n";
print "  'username': 'test',\n";
print "  'token': 'SDLIIBqCypa3bIRQEv9GMAPF4GHqelBD'\n";
print "}\n";