#!/usr/bin/perl -w
use v5.030;

use Astro::SIMBAD::Client;
use Data::Dumper;

my $s = Astro::SIMBAD::Client->new;

my @q = split /\n/, $s->url_query( id => Ident => "$ARGV[0]", NbIdent => 1 );
my @r = grep /ICRS/, @q;

print Dumper(@r);
#print Dumper(@q);