package Keithley2000
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;

sub GetFunctions
return "|DCVMeasure|DCIMeasure|ACVMeasure|ACIMeasure|";

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

sub Clear
my ($this) = @_;

sub Reset
my ($this) = @_;

sub GetId
my ($this) = @_;
return $this->read();

sub SetDCAmpstMode
my ($this) = @_;

sub SetDCVoltsMode
my ($this) = @_;

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

sub SetAutoRangeForCurrent
my ($this, $f) = @_;

sub SetAutoRangeForVoltage
my ($this, $f) = @_;