use strict;
use warnings;
use diagnostics;

use HTTP::Tiny;

while ( my($key, $value) = each %HTTP::Tiny::) {
                 print "Key: $key\tValue: $value\n";

}