my $ezio = { cmd=> chr hex ( '0xFE' ), init=> chr hex ( '0x28' ), stopsend=>chr hex ( '0x37' ), cls=> chr ( 1 ) , home=> chr ( 2 ), blank=> chr ( 8 ), hide=>chr hex ( '0x0C' ), };