beaglebone model/serial

perl -Mautodie -E 'my $path = "/sys/bus/i2c/devices/0-0050/0-00500/nvmem"; $path = "/sys/bus/i2c/devices/0-0050/eeprom" if -w "/sys/bus/i2c/devices/0-0050/eeprom" || ! -f $path; open my $fh, "<:raw", $path; sysread $fh, $_, 0x70, 0; s/[^ -~]{1,32}\z|X{9}\z//; say for grep $_, unpack "x4a12a12x52a32", $_'