Serial read example on Beaglebone black with perl