functions to call api

test/test.pl

@@ -14,15 +14,22 @@ print "Host : $config{Authentification}{Path}\n";
 print "Protocol : $config{Authentification}{Username}\n";
 
 local $url = "$config{Authentification}{Host}$config{Authentification}{Path}";
- 
-my $ua = LWP::UserAgent->new(timeout => 10);
+local $ua = LWP::UserAgent->new(timeout => 10);
 $ua->env_proxy;
- 
-my $response = $ua->get( $url );
- 
-if ($response->is_success) {
+
+sub rq {
+  my $path = (exists $_[0])? $_[0] : "";
+  my $response = $ua->get( "$url$path" );
+  print "rq $url$path\n";
+  if ($response->is_success) {
     print $response->decoded_content;
+    print "\n";
+  }
+  else {
+    print $response->status_line;
+    print "\n";
+  }
 }
-else {
-    die $response->status_line;
-}
+
+rq();
+rq( "tokens" );