Motor Regions Scan

#!/usr/bin/env perl
use Spectra; 
#
# motor regions scan
#
Spectra::scan( device => "mot12", 
               regions => "yes",
               regions_file => "regions1.exa") or die " Failed to execute a motor scan ";

The regions file may have the following contents:

! 
! Data 
%d 
 Col 1 Energy  FLOAT 
 Col 2 Delta  FLOAT 
 Col 3 Sample_Time  FLOAT 
 Col 4 Edge    FLOAT 
 Col 5 Power    FLOAT 
   50   1 0.2   0       0 
   60   2 0.1   0       0 
   70   0   0   60000   1