device_record()

$ret = device_record( "T1");
for local devices: name T1 device TIMER module DGG2 base 0x1000 channel 0
for Tango devices: name T1 device TIMER module DGG2 server //node:10000/bw4/exp/t1

Example:

my %h_local = split " ", Spectra::device_record( "mot1");
if( defined( $h_local{ server}))
{
  print " name $h_local{ name} at $h_local{ server} \n"; 
}