package Device
@ISA = qw()

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

sub DESTROY
my $this = shift;