package GPIBDevice
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;