perl -MAstro::SIMBAD::Client -MData::Dumper -le '$s=Astro::SIMBAD::Client->new;@s=split/\n/,$s->url_query(id => Ident => "$ARGV[0]", NbIdent => 1);splice(@s,0,7);splice(@s,20,$#s+1);%s=map{/([^:]+\S)\s?:\s+(\S.*)/;$1=>$2}@s;@s=grep/^Coord/,keys%s;print"$_: $s{$_}"for@s;print qq[\n$s{"Proper motions"}\n];print Dumper\%s;' sirius