A perl script that listens for data from the current cost CC128.