use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;

# define the HTTP header
my $objHeader = HTTP::Headers->new;
$objHeader->push_header('X-EBAY-API-COMPATIBILITY-LEVEL' => '391');
$objHeader->push_header('X-EBAY-API-DEV-NAME' => '6a6f20a8-cf24-46b9-bf4f-ee7875063a1b');
$objHeader->push_header('X-EBAY-API-APP-NAME' => 'RFCDISTR-23b4-49db-a4c3-72c6a85fd5f6');
$objHeader->push_header('X-EBAY-API-CERT-NAME' => '27c5dd05-568c-48d6-a2a7-747c5cbb07df');
$objHeader->push_header('X-EBAY-API-CALL-NAME' => 'GeteBayOfficialTime');
$objHeader->push_header('X-EBAY-API-SITEID' => '0');
$objHeader->push_header('Content-Type' => 'text/xml');

# define the XML request
my $request =
    "<?xml version='1.0' encoding='utf-8'?>" .
    "<GeteBayOfficialTimeRequest xmlns=\"urn:ebay:apis:eBLBaseComponents\">" .
    "  <RequesterCredentials>" .
    "    <eBayAuthToken>AgAAAA**AQAAAA**aAAAAA**rPQkSg**nY+sHZ2PrBmdj6wVnY+sEZ2PrA2dj6wFk4CoDZWKqAqdj6x9nY+seQ**UCQBAA**AAMAAA**bPEE84NUtIyhffpD9I+1xZyct6C/TeObxWuzQJtiv+Qg9j3d+2pcoCuCw7aAA/AkgyD6CG6VTNztO8ylNDKjYxqKMd2pHsal6IIrAKysy6C794gIgNaumGsTdFXdnX0hX6uPb7WrQKgHxDPHR4aXV9CkIH4MEvEf8EByfVnBiS7K6tAC1TW5LsrZ8MtGLT1FZs27yrb1O5Dw1hfwjiDvnIbwsKbaS5+q3B6RVFEjoe1ZsczSJh7XTeqso4hwH1DdbVkY34kd0ZPgOjmZCTq9rP+GHSQ8oOgIdVDlKd+gdrkEYVFmlMIniuUeEAh3Rf3ATc2h0tPeqOgvu/5GZXdV4WqDwMqqgjcwVVomFVlwld8/+gG3d0knvLmfruz1ldH+uLPiOxlCKqnoMMkH+HwlGsCQ/q4gx+VG5XGg4KeALJuNsLsI4oiySLz0pZnbYB3VUL9cWjgzHEftjFCbgrKGTFrpALHt5w1EGdR6o6lgmzZV2YxiBIhI2cxSidxUjvGasgwuemJeiSH3VlEORqt85cV41lVa49JGPO7nmkHT/sEcw3I8/uXPuQMHos0Tg9z6qYh4NarytvGBWre8XfMVmfFSl7IwiBTN4NCrjkRBFUw/zdx37th4BM2iSldoewN8vlhpcdstY1Whf2aj+RsJdbRL88gAccP/uk3d2Sl1V5sHz/5LDrhqcmqyCuuqU3kK74LF1LOMLVw9Kg1270YgXFk//a3QgtMpoUz0gn7kINzLlKTLZlqKwTFvCWhdMEdi</eBayAuthToken>" .
    "  </RequesterCredentials>" .
    "</GeteBayOfficialTimeRequest>";

# make the call
my $objRequest = HTTP::Request->new(
  "POST",
  "https://api.sandbox.ebay.com/ws/api.dll",
  $objHeader,
  $request
);

# deal with the response
my $objUserAgent = LWP::UserAgent->new;
my $objResponse = $objUserAgent->request($objRequest);
if (!$objResponse->is_error) {
  print $objResponse->content;
}
else {
  print $objResponse->error_as_HTML;
}