...
	if ('Device1' eq $device){
		use Device1;
		@ISA = qw(Device1);
	}
	elsif ('Device2' eq $device){
		use Device2;
		@ISA = qw(Device2);	
	}
    ...