#!/usr/bin/perl

use strict;
use warnings;
  
use Net::eBay;
use Data::Dumper;
use DateTime::Precise;

use HTML::TreeBuilder;
use Text::Format;
use HTML::PrettyPrinter;
use HTML::FormatText;

use Getopt::Long;

my $debug = undef;

GetOptions(
           "debug=s" => \$debug,
          );

my $eBay = new Net::eBay;

# use new eBay API
$eBay->setDefaults( { API => 2, debug => $debug } );

my $result = $eBay->submitRequest( "GetApiAccessRules",
                                     {
                                     }
                                 );
if( ref $result ) {
  print "Result: " . Dumper( $result ) . "\n";

  if( $result->{Errors} ) {
    print STDERR "Error: $result->{Errors}->{ShortMessage}\n";
  }
}