#!/usr/bin/perl -w
#
#astool - example implementation of Net::ASN
#
use strict;
use Net::ASN;
my $inasn       = $ARGV[0];
my $asasdot     = $ARGV[1] || undef;
unless ($inasn) {
        print "Usage: $0 <ASN> [-asdot]\n";
        print "\nYou must specify an ASN , use the optional flag '-asdot'\n";
        print "to force this ASN to be parsed in ASDOT format.\n\n";
        exit 1;
}
my $asn = Net::ASN->new($inasn,$asasdot);
print "type     : " . $asn->gettype  . "\n";
print "asplain16: " . $asn->toasplain16 . "\n";
print "asplain32: " . $asn->toasplain   . "\n";
print "asdot    : " . $asn->toasdot     . "\n";
print "asdotplus: " . $asn->toasdotplus . "\n";
print "\n";