package Keithley2000
@ISA = qw()

sub BEGIN

sub new
my ($module, $interface, $devname) = @_;
return $this;

sub DESTROY
my $this = shift;

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

sub SetDCCurrentMode
my ($this, $ZeroCheck) = @_;

sub Measure
my ($this) = @_;
return $ValueStr;

sub MeasureAveraged
my ($this, $nAverage) = @_;
return $avrI / $nAverage;

sub SetSourceVoltage
my ($this, $V) = @_;