sub lcd_home { shift if @_ == 2; lcdHome($_[0]); } sub lcd_clear { shift if @_ == 2; lcdClear($_[0]); } sub lcd_display { shift if @_ == 3; my ($fd, $state) = @_; lcdDisplay($fd, $state); }