sub init {
    my ($this, $str, @params) = @_;
    $this->{DATA}{DEVICE} = "lp0";   # <---
    $this->{DATA}{BASE} = linux_opendev($this->{DATA}{DEVICE});
    ...