Keithley 617, NON-Tango

   if( $method =~ /reset/i)
   {
     return 1;
   }

   if( $method =~ /read/i)
   {
     my $ret = gpibWrite( 11, "F1X");
     $ret = gpibRead( 11); 
# some string manipulation
#     $ret =~ s/^\s*(.*?)\s*$/$1/; 
     return $ret;
   }