Select Code to Download

perl -MAstro::SIMBAD::Client -MData::Dumper -le '$s=Astro::SIMBAD::Cli
+ent->new;@s=split/\n/,$s->url_query(id => Ident => "$ARGV[0]", NbIden
+t => 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 q
+q[\n$s{"Proper motions"}\n];print Dumper\%s;' sirius

Coordinates(Gal,ep=J2000,eq=2000): 227.23029126  -08.89028121 
Coordinates(ICRS,ep=J2000,eq=2000): 06 45 08.91728  -16 42 58.0171 (Op
+t ) A [11.70 10.90 90] 2007A&A...474..653V
...
          'Coordinates(FK4,ep=B1950,eq=1950)' => '06 42 56.72452  -16 
+38 45.4080',
          'hierarchy counts' => '#parents=0, #children=0, #siblings=0'
        };

use Math::Trig 'deg2rad';