Slit Scan

#!/usr/bin/env perl
use Spectra; 
#
# slit scans
#
Spectra::scan( type => "slit", 
	       device => "(slt1, cx)", 
	       start => 1, 
	       stop => 2, 
	       delta => 0.1, 
	       comment => "Slit Scan", 
	       st => "0.1") or die  " Failed to execute a slit scan";