Select Code to Download

if ($device eq undef) {
        die "Usage: <app> /dev/hidrawN";
        exit;
}

@ARGV or die "Usage: <app> /dev/hidrawN";

    my $report = ord(substr($data, 1, 1));
    my $status = ord(substr($data, 2, 1));
...
    if($exp != 255 && $exp != 0) {
        $weight ^= $exp;
    }

    my ( $report, $status, $unit, $exp, $weight ) = unpack 'xCCCCS', $
+data
    $weight /= 10;
...
        $weight ^= $exp;
    }