Select Code to Download

sub lcd_char_def {
    shift if @_ == 4;
...
    my $unsigned_char = pack "C[8]", @$data;
    lcdCharDef($fd, $index, $unsigned_char);
}